/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / admin / ra / _reg / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1e f4 3e 41 44 | 46 53 3a 3a 30 2e 24 2e |.....>AD|FS::0.$.|
|00000010| 21 52 45 47 2e 21 52 75 | 6e 49 6d 61 67 65 0d 00 |!REG.!Ru|nImage..|
|00000020| 14 04 0d 00 1e 35 f4 20 | 43 6f 70 79 72 69 67 68 |.....5. |Copyrigh|
|00000030| 74 20 49 61 6e 20 4c 79 | 6e 63 68 20 31 39 39 30 |t Ian Ly|nch 1990|
|00000040| 20 76 65 72 20 31 2e 30 | 38 20 32 36 74 68 20 4f | ver 1.0|8 26th O|
|00000050| 63 74 20 31 39 39 31 0d | 00 28 04 0d 00 32 2a 53 |ct 1991.|.(...2*S|
|00000060| 43 4e 41 4d 24 3d 22 52 | 61 77 6d 61 72 73 68 20 |CNAM$="R|awmarsh |
|00000070| 43 6f 6d 70 72 65 68 65 | 6e 73 69 76 65 20 53 63 |Comprehe|nsive Sc|
|00000080| 68 6f 6f 6c 22 0d 00 3c | 13 53 43 31 24 3d 22 52 |hool"..<|.SC1$="R|
|00000090| 61 77 6d 61 72 73 68 22 | 0d 00 46 14 59 54 24 3d |awmarsh"|..F.YT$=|
|000000a0| 22 54 65 63 68 6e 6f 6c | 6f 67 79 22 0d 00 50 39 |"Technol|ogy"..P9|
|000000b0| 53 50 4f 53 58 25 3d 35 | 32 35 20 20 20 3a f4 20 |SPOSX%=5|25   :. |
|000000c0| 50 6f 73 69 74 69 6f 6e | 20 6f 66 20 53 70 72 69 |Position| of Spri|
|000000d0| 74 65 20 6f 6e 20 72 65 | 67 69 73 74 65 72 20 73 |te on re|gister s|
|000000e0| 63 72 65 65 6e 0d 00 5a | 0e 53 50 4f 53 59 25 3d |creen..Z|.SPOSY%=|
|000000f0| 37 30 30 0d 00 64 0a 65 | 78 74 25 3d a3 0d 00 6e |700..d.e|xt%=...n|
|00000100| 0c 75 66 6c 61 67 25 3d | a3 0d 00 78 0b 73 6b 69 |.uflag%=|...x.ski|
|00000110| 70 25 3d a3 0d 00 82 7c | 66 61 63 74 6f 72 25 3d |p%=....||factor%=|
|00000120| 31 20 20 20 20 3a f4 20 | 6d 61 6b 65 20 66 61 63 |1    :. |make fac|
|00000130| 74 6f 72 25 20 73 61 79 | 20 35 20 6f 72 20 31 30 |tor% say| 5 or 10|
|00000140| 20 77 69 74 68 20 41 52 | 4d 33 20 74 6f 20 73 6c | with AR|M3 to sl|
|00000150| 6f 77 20 6d 65 6e 75 20 | 20 20 20 20 20 20 20 20 |ow menu |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 20 73 65 6c 65 63 74 | 69 6f 6e 73 20 74 6f 20 |  select|ions to |
|00000180| 61 20 73 65 6e 73 69 62 | 6c 65 20 72 61 74 65 2e |a sensib|le rate.|
|00000190| 0d 00 8c 04 0d 00 96 1f | 2a 52 4d 4c 4f 41 44 20 |........|*RMLOAD |
|000001a0| 3c 4f 62 65 79 24 44 49 | 52 3e 2e 48 41 52 44 43 |<Obey$DI|R>.HARDC|
|000001b0| 4f 50 59 0d 00 a0 0a 2a | 46 58 34 2c 30 0d 00 aa |OPY....*|FX4,0...|
|000001c0| 39 2a 53 45 54 20 41 4c | 49 41 53 24 42 4f 52 44 |9*SET AL|IAS$BORD|
|000001d0| 45 52 20 45 43 48 4f 20 | 7c 3c 31 39 3e 7c 3c 35 |ER ECHO ||<19>|<5|
|000001e0| 3e 7c 3c 32 34 3e 7c 3c | 31 32 30 3e 7c 3c 31 36 |>|<24>|<|120>|<16|
|000001f0| 3e 7c 3c 36 30 3e 0d 00 | b4 05 87 0d 00 be 07 eb |>|<60>..|........|
|00000200| 31 32 0d 00 c8 40 f2 61 | 73 73 65 6d 62 6c 65 31 |12...@.a|ssemble1|
|00000210| 20 20 20 3a f4 20 41 52 | 4d 20 63 6f 64 65 20 75 |   :. AR|M code u|
|00000220| 73 65 64 20 74 6f 20 77 | 6f 72 6b 20 6f 75 74 20 |sed to w|ork out |
|00000230| 73 74 61 74 69 73 74 69 | 63 73 20 73 6f 20 74 68 |statisti|cs so th|
|00000240| 61 74 0d 00 d2 3b 20 20 | 20 20 20 20 20 20 20 20 |at...;  |        |
|00000250| 20 20 20 20 20 20 3a f4 | 20 69 6d 6d 65 64 69 61 |      :.| immedia|
|00000260| 74 65 6c 79 20 61 76 61 | 69 6c 61 62 6c 65 20 6f |tely ava|ilable o|
|00000270| 6e 20 65 64 69 74 20 73 | 63 72 65 65 6e 0d 00 dc |n edit s|creen...|
|00000280| 0c 40 25 3d 32 30 32 30 | 32 0d 00 e6 31 f4 20 69 |.@%=2020|2...1. i|
|00000290| 6e 69 74 69 61 6c 69 73 | 65 20 76 61 72 69 61 62 |nitialis|e variab|
|000002a0| 6c 65 73 20 61 6e 64 20 | 73 65 74 20 75 70 20 64 |les and |set up d|
|000002b0| 61 74 61 20 62 6c 6f 63 | 6b 73 0d 00 f0 04 0d 00 |ata bloc|ks......|
|000002c0| fa 40 6e 75 6d 25 3d 32 | 35 30 20 20 20 20 20 20 |.@num%=2|50      |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002e0| 20 20 20 20 20 3a f4 20 | 6d 61 78 20 6e 75 6d 62 |     :. |max numb|
|000002f0| 65 72 20 6f 66 20 73 74 | 75 64 65 6e 74 73 0d 01 |er of st|udents..|
|00000300| 04 04 0d 01 0e 3b de 20 | 54 47 24 28 32 30 29 20 |.....;. |TG$(20) |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000320| 20 20 20 20 20 20 20 3a | f4 20 66 75 6c 6c 20 74 |       :|. full t|
|00000330| 75 74 6f 72 20 67 70 20 | 6e 61 6d 65 73 0d 01 18 |utor gp |names...|
|00000340| 33 de 20 54 47 43 24 28 | 32 30 29 20 20 20 20 20 |3. TGC$(|20)     |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 3a f4 20 74 75 74 | 6f 72 20 63 6f 64 65 73 |  :. tut|or codes|
|00000370| 0d 01 22 37 de 20 4d 4f | 4e 54 48 24 28 31 32 29 |.."7. MO|NTH$(12)|
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000390| 20 20 20 20 20 3a f4 20 | 6e 61 6d 65 73 20 6f 66 |     :. |names of|
|000003a0| 20 6d 6f 6e 74 68 73 0d | 01 2c 44 de 20 6d 6c 65 | months.|.,D. mle|
|000003b0| 6e 25 28 33 29 20 20 20 | 20 20 20 20 20 20 20 20 |n%(3)   |        |
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 74 |        |    :. t|
|000003d0| 65 6d 70 20 73 74 6f 72 | 65 20 66 6f 72 20 6d 6f |emp stor|e for mo|
|000003e0| 6e 74 68 20 6c 65 6e 67 | 74 68 73 0d 01 36 33 de |nth leng|ths..63.|
|000003f0| 20 4d 4d 24 28 37 29 20 | 20 20 20 20 20 20 20 20 | MM$(7) |        |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000410| 3a f4 20 6d 65 6e 75 20 | 74 69 74 6c 65 73 0d 01 |:. menu |titles..|
|00000420| 40 0d de 20 4c 4d 24 28 | 31 34 29 0d 01 4a 0c de |@.. LM$(|14)..J..|
|00000430| 20 41 4d 24 28 37 29 0d | 01 54 0c de 20 43 4d 24 | AM$(7).|.T.. CM$|
|00000440| 28 36 29 0d 01 5e 0c de | 20 47 4d 24 28 37 29 0d |(6)..^..| GM$(7).|
|00000450| 01 68 39 de 20 41 24 28 | 6e 75 6d 25 29 20 20 20 |.h9. A$(|num%)   |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000470| 20 20 20 20 3a f4 20 6e | 61 6d 65 73 20 6f 66 20 |    :. n|ames of |
|00000480| 73 74 75 64 65 6e 74 73 | 0d 01 72 37 de 20 42 28 |students|..r7. B(|
|00000490| 31 35 29 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |15)     |        |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |        |     :. |
|000004b0| 6d 65 6e 75 20 68 69 67 | 68 6c 69 67 68 74 73 0d |menu hig|hlights.|
|000004c0| 01 7c 3e de 20 44 25 28 | 31 30 29 20 20 20 20 20 |.|>. D%(|10)     |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004e0| 20 20 20 20 3a f4 20 61 | 72 72 61 79 20 66 6f 72 |    :. a|rray for|
|000004f0| 20 6e 6f 2e 20 64 61 79 | 73 2f 6d 74 68 0d 01 86 | no. day|s/mth...|
|00000500| 3a de 20 6d 64 61 79 24 | 28 31 31 2c 33 31 29 20 |:. mday$|(11,31) |
|00000510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000520| 20 20 3a f4 20 64 61 79 | 73 20 69 6e 20 65 61 63 |  :. day|s in eac|
|00000530| 68 20 6d 6f 6e 74 68 0d | 01 90 38 de 20 77 65 65 |h month.|..8. wee|
|00000540| 6b 24 28 37 29 20 20 20 | 20 20 20 20 20 20 20 20 |k$(7)   |        |
|00000550| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 64 |        |    :. d|
|00000560| 61 79 73 20 6f 66 20 74 | 68 65 20 77 65 65 6b 0d |ays of t|he week.|
|00000570| 01 9a 40 de 20 74 68 69 | 6f 6e 65 25 28 35 30 29 |..@. thi|one%(50)|
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000590| 20 20 20 20 3a f4 20 6e | 75 6d 62 65 72 73 20 66 |    :. n|umbers f|
|000005a0| 6f 72 20 33 31 20 64 61 | 79 20 6d 6f 6e 74 68 0d |or 31 da|y month.|
|000005b0| 01 a4 40 de 20 74 68 69 | 25 28 35 30 29 20 20 20 |..@. thi|%(50)   |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 3a f4 20 6e | 75 6d 62 65 72 73 20 66 |    :. n|umbers f|
|000005e0| 6f 72 20 33 30 20 64 61 | 79 20 6d 6f 6e 74 68 0d |or 30 da|y month.|
|000005f0| 01 ae 40 de 20 74 77 65 | 6e 69 6e 25 28 35 30 29 |..@. twe|nin%(50)|
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000610| 20 20 20 20 3a f4 20 6e | 75 6d 62 65 72 73 20 66 |    :. n|umbers f|
|00000620| 6f 72 20 32 39 20 64 61 | 79 20 6d 6f 6e 74 68 0d |or 29 da|y month.|
|00000630| 01 b8 40 de 20 74 77 65 | 65 69 67 25 28 35 30 29 |..@. twe|eig%(50)|
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 20 20 20 3a f4 20 6e | 75 6d 62 65 72 73 20 66 |    :. n|umbers f|
|00000660| 6f 72 20 32 38 20 64 61 | 79 20 6d 6f 6e 74 68 0d |or 28 da|y month.|
|00000670| 01 c2 3c de 20 70 73 74 | 6f 72 65 31 24 28 35 30 |..<. pst|ore1$(50|
|00000680| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00000690| 20 20 20 20 3a f4 20 74 | 65 6d 70 6f 72 79 20 70 |    :. t|empory p|
|000006a0| 72 69 6e 74 20 62 75 66 | 66 65 72 0d 01 cc 37 de |rint buf|fer...7.|
|000006b0| 20 70 73 74 6f 72 65 32 | 24 28 35 30 29 20 20 20 | pstore2|$(50)   |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006d0| 3a f4 20 32 6e 64 20 74 | 65 6d 70 20 62 75 66 66 |:. 2nd t|emp buff|
|000006e0| 65 72 0d 01 d6 40 de 20 | 54 50 25 28 35 30 29 20 |er...@. |TP%(50) |
|000006f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000700| 20 20 20 20 20 20 20 3a | f4 20 64 61 74 61 20 73 |       :|. data s|
|00000710| 74 6f 72 65 73 20 66 6f | 72 20 54 47 20 73 74 61 |tores fo|r TG sta|
|00000720| 74 73 0d 01 e0 0e de 20 | 54 50 50 25 28 35 30 29 |ts..... |TPP%(50)|
|00000730| 0d 01 ea 0d de 20 54 41 | 25 28 35 30 29 0d 01 f4 |..... TA|%(50)...|
|00000740| 0e de 20 54 41 41 25 28 | 35 30 29 0d 01 fe 0d de |.. TAA%(|50).....|
|00000750| 20 54 4c 25 28 35 30 29 | 0d 02 08 0e de 20 54 4c | TL%(50)|..... TL|
|00000760| 4c 25 28 35 30 29 0d 02 | 12 0f de 20 54 50 4f 53 |L%(50)..|... TPOS|
|00000770| 25 28 35 30 29 0d 02 1c | 10 de 20 54 50 4f 53 53 |%(50)...|.. TPOSS|
|00000780| 25 28 35 30 29 0d 02 26 | 0d de 20 4d 50 25 28 31 |%(50)..&|.. MP%(1|
|00000790| 30 29 0d 02 30 0e de 20 | 4d 50 50 25 28 31 30 29 |0)..0.. |MPP%(10)|
|000007a0| 0d 02 3a 0d de 20 4d 41 | 25 28 31 30 29 0d 02 44 |..:.. MA|%(10)..D|
|000007b0| 0e de 20 4d 41 41 25 28 | 31 30 29 0d 02 4e 0d de |.. MAA%(|10)..N..|
|000007c0| 20 4d 4c 25 28 31 30 29 | 0d 02 58 0e de 20 4d 4c | ML%(10)|..X.. ML|
|000007d0| 4c 25 28 31 30 29 0d 02 | 62 0e de 20 4d 70 73 25 |L%(10)..|b.. Mps%|
|000007e0| 28 31 30 29 0d 02 6c 0f | de 20 4d 70 73 73 25 28 |(10)..l.|. Mpss%(|
|000007f0| 31 30 29 0d 02 76 11 de | 20 74 69 6d 73 74 6f 72 |10)..v..| timstor|
|00000800| 25 28 39 29 0d 02 80 04 | 0d 02 8a 19 f4 20 6c 6f |%(9)....|..... lo|
|00000810| 61 64 20 74 69 6d 65 20 | 76 61 72 69 61 62 6c 65 |ad time |variable|
|00000820| 73 0d 02 94 3c f4 20 61 | 6e 64 20 63 6f 6e 76 65 |s...<. a|nd conve|
|00000830| 72 74 20 74 69 6d 65 73 | 20 74 6f 20 73 65 6e 73 |rt times| to sens|
|00000840| 69 62 6c 65 20 6d 61 74 | 68 65 6d 61 74 69 63 61 |ible mat|hematica|
|00000850| 6c 20 71 75 61 6e 74 69 | 74 69 65 73 21 0d 02 9e |l quanti|ties!...|
|00000860| 23 74 69 6d 65 66 3d ad | 28 22 3c 4f 62 65 79 24 |#timef=.|("<Obey$|
|00000870| 44 69 72 3e 2e 63 72 74 | 5f 74 69 6d 65 73 22 29 |Dir>.crt|_times")|
|00000880| 0d 02 a8 12 e3 20 74 69 | 6d 65 73 25 3d 31 20 b8 |..... ti|mes%=1 .|
|00000890| 20 38 0d 02 b2 1d 20 e8 | 23 74 69 6d 65 66 2c 74 | 8.... .|#timef,t|
|000008a0| 69 6d 73 74 6f 72 25 28 | 74 69 6d 65 73 25 29 0d |imstor%(|times%).|
|000008b0| 02 bc 05 ed 0d 02 c6 0b | d9 23 74 69 6d 65 66 0d |........|.#timef.|
|000008c0| 02 d0 2a 41 4d 68 6f 75 | 72 25 3d 74 69 6d 73 74 |..*AMhou|r%=timst|
|000008d0| 6f 72 25 28 31 29 3a 41 | 4d 6d 69 6e 25 3d 74 69 |or%(1):A|Mmin%=ti|
|000008e0| 6d 73 74 6f 72 25 28 32 | 29 0d 02 da 20 41 4d 63 |mstor%(2|)... AMc|
|000008f0| 6c 6f 63 6b 25 3d 28 36 | 30 2a 41 4d 68 6f 75 72 |lock%=(6|0*AMhour|
|00000900| 25 29 2b 41 4d 6d 69 6e | 25 0d 02 e4 04 0d 02 ee |%)+AMmin|%.......|
|00000910| 2c 4d 49 44 68 6f 75 72 | 25 3d 74 69 6d 73 74 6f |,MIDhour|%=timsto|
|00000920| 72 25 28 33 29 3a 4d 49 | 44 6d 69 6e 25 3d 74 69 |r%(3):MI|Dmin%=ti|
|00000930| 6d 73 74 6f 72 25 28 34 | 29 0d 02 f8 23 4d 49 44 |mstor%(4|)...#MID|
|00000940| 63 6c 6f 63 6b 25 3d 28 | 36 30 2a 4d 49 44 68 6f |clock%=(|60*MIDho|
|00000950| 75 72 25 29 2b 4d 49 44 | 6d 69 6e 25 0d 03 02 04 |ur%)+MID|min%....|
|00000960| 0d 03 0c 2a 50 4d 68 6f | 75 72 25 3d 74 69 6d 73 |...*PMho|ur%=tims|
|00000970| 74 6f 72 25 28 35 29 3a | 50 4d 6d 69 6e 25 3d 74 |tor%(5):|PMmin%=t|
|00000980| 69 6d 73 74 6f 72 25 28 | 36 29 0d 03 16 20 50 4d |imstor%(|6)... PM|
|00000990| 63 6c 6f 63 6b 25 3d 28 | 36 30 2a 50 4d 68 6f 75 |clock%=(|60*PMhou|
|000009a0| 72 25 29 2b 50 4d 6d 69 | 6e 25 0d 03 20 04 0d 03 |r%)+PMmi|n%.. ...|
|000009b0| 2a 2a 4c 4d 68 6f 75 72 | 25 3d 74 69 6d 73 74 6f |**LMhour|%=timsto|
|000009c0| 72 25 28 37 29 3a 4c 4d | 6d 69 6e 25 3d 74 69 6d |r%(7):LM|min%=tim|
|000009d0| 73 74 6f 72 25 28 38 29 | 0d 03 34 20 4c 4d 63 6c |stor%(8)|..4 LMcl|
|000009e0| 6f 63 6b 25 3d 28 36 30 | 2a 4c 4d 68 6f 75 72 25 |ock%=(60|*LMhour%|
|000009f0| 29 2b 4c 4d 6d 69 6e 25 | 0d 03 3e 04 0d 03 48 12 |)+LMmin%|..>...H.|
|00000a00| f2 74 69 6d 65 5f 74 6f | 5f 63 6c 6f 63 6b 0d 03 |.time_to|_clock..|
|00000a10| 52 16 e7 20 68 6f 75 72 | 25 3e 50 4d 63 6c 6f 63 |R.. hour|%>PMcloc|
|00000a20| 6b 25 20 8c 0d 03 5c 09 | 41 50 25 3d 32 0d 03 66 |k% ...\.|AP%=2..f|
|00000a30| 05 cc 0d 03 70 09 41 50 | 25 3d 31 0d 03 7a 05 cd |....p.AP|%=1..z..|
|00000a40| 0d 03 84 04 0d 03 8e 44 | 61 74 74 73 70 61 63 65 |.......D|attspace|
|00000a50| 3d 36 39 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |=693    |        |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 6d 61 |        |   :. ma|
|00000a70| 78 20 73 70 61 63 65 20 | 66 6f 72 20 69 6e 64 69 |x space |for indi|
|00000a80| 76 20 61 74 74 65 6e 64 | 0d 03 98 04 0d 03 a2 42 |v attend|.......B|
|00000a90| 62 61 73 65 25 3d 26 35 | 43 30 30 30 20 20 20 20 |base%=&5|C000    |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ab0| 20 20 20 3a f4 20 73 74 | 61 72 74 20 6f 66 20 61 |   :. st|art of a|
|00000ac0| 74 74 65 6e 64 61 6e 63 | 65 20 64 61 74 61 0d 03 |ttendanc|e data..|
|00000ad0| ac 45 68 6f 6c 73 74 61 | 72 74 25 3d 26 35 42 44 |.Eholsta|rt%=&5BD|
|00000ae0| 30 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00      |        |
|00000af0| 20 20 20 20 20 3a f4 20 | 73 74 61 72 74 20 6f 66 |     :. |start of|
|00000b00| 20 68 6f 6c 69 64 61 79 | 20 74 65 6d 70 20 73 74 | holiday| temp st|
|00000b10| 6f 72 65 0d 03 b6 3e 73 | 74 61 74 73 74 6f 72 65 |ore...>s|tatstore|
|00000b20| 25 3d 26 35 42 30 30 30 | 20 20 20 20 20 20 20 20 |%=&5B000|        |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 73 74 6f |        |  :. sto|
|00000b40| 72 65 20 66 6f 72 20 73 | 74 61 74 69 73 74 69 63 |re for s|tatistic|
|00000b50| 73 0d 03 c0 35 4c 65 61 | 70 25 3d a3 20 20 20 20 |s...5Lea|p%=.    |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b70| 20 20 20 20 3a f4 20 6c | 65 61 70 20 79 65 61 72 |    :. l|eap year|
|00000b80| 20 66 6c 61 67 73 0d 03 | ca 0e 4c 65 61 70 73 65 | flags..|..Leapse|
|00000b90| 74 25 3d a3 0d 03 d4 31 | 6e 65 78 74 72 65 63 25 |t%=....1|nextrec%|
|00000ba0| 3d a3 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=.      |        |
|00000bb0| 20 20 20 20 20 20 20 3a | f4 20 70 61 67 69 6e 67 |       :|. paging|
|00000bc0| 20 66 6c 61 67 0d 03 de | 04 0d 03 e8 41 20 63 75 | flag...|....A cu|
|00000bd0| 72 6d 6f 6e 24 3d c1 91 | 24 2c 38 2c 33 29 20 20 |rmon$=..|$,8,3)  |
|00000be0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 75 73 65 20 |        | :. use |
|00000bf0| 73 79 73 74 65 6d 20 63 | 6c 6f 63 6b 20 74 6f 20 |system c|lock to |
|00000c00| 69 6e 69 74 69 61 6c 69 | 73 65 0d 03 f2 2e 20 63 |initiali|se.... c|
|00000c10| 75 72 64 61 79 25 3d bb | 28 c1 91 24 2c 35 2c 32 |urday%=.|(..$,5,2|
|00000c20| 29 29 20 20 20 20 20 20 | 3a f4 20 64 61 74 65 20 |))      |:. date |
|00000c30| 61 6e 64 20 74 69 6d 65 | 0d 03 fc 41 20 66 72 65 |and time|...A fre|
|00000c40| 67 25 3d a3 20 20 20 20 | 20 20 20 20 20 20 20 20 |g%=.    |        |
|00000c50| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 66 6c |        |   :. fl|
|00000c60| 61 67 20 74 6f 20 66 69 | 6e 69 73 68 20 72 65 67 |ag to fi|nish reg|
|00000c70| 69 73 74 72 61 74 69 6f | 6e 0d 04 06 04 0d 04 10 |istratio|n.......|
|00000c80| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |L       |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ca0| 20 20 20 20 3a f4 20 64 | 61 74 61 20 66 6f 72 20 |    :. d|ata for |
|00000cb0| 63 72 6f 73 73 69 6e 67 | 20 6d 6f 6e 74 68 20 62 |crossing| month b|
|00000cc0| 6f 75 6e 64 61 72 69 65 | 73 0d 04 1a 11 e3 20 49 |oundarie|s..... I|
|00000cd0| 25 20 3d 20 37 20 b8 20 | 33 31 0d 04 24 14 74 68 |% = 7 . |31..$.th|
|00000ce0| 69 6f 6e 65 25 28 49 25 | 2d 37 29 3d 49 25 0d 04 |ione%(I%|-7)=I%..|
|00000cf0| 2e 05 ed 0d 04 38 04 0d | 04 42 0f e3 20 49 25 3d |.....8..|.B.. I%=|
|00000d00| 31 20 b8 20 32 35 0d 04 | 4c 15 74 68 69 6f 6e 65 |1 . 25..|L.thione|
|00000d10| 25 28 49 25 2b 32 34 29 | 3d 49 25 0d 04 56 05 ed |%(I%+24)|=I%..V..|
|00000d20| 0d 04 60 04 0d 04 6a 11 | e3 20 49 25 20 3d 20 36 |..`...j.|. I% = 6|
|00000d30| 20 b8 20 33 30 0d 04 74 | 11 74 68 69 25 28 49 25 | . 30..t|.thi%(I%|
|00000d40| 2d 36 29 3d 49 25 0d 04 | 7e 05 ed 0d 04 88 04 0d |-6)=I%..|~.......|
|00000d50| 04 92 0f e3 20 49 25 3d | 31 20 b8 20 32 35 0d 04 |.... I%=|1 . 25..|
|00000d60| 9c 12 74 68 69 25 28 49 | 25 2b 32 34 29 3d 49 25 |..thi%(I|%+24)=I%|
|00000d70| 0d 04 a6 05 ed 0d 04 b0 | 04 0d 04 ba 11 e3 20 49 |........|...... I|
|00000d80| 25 20 3d 20 35 20 b8 20 | 32 39 0d 04 c4 14 74 77 |% = 5 . |29....tw|
|00000d90| 65 6e 69 6e 25 28 49 25 | 2d 35 29 3d 49 25 0d 04 |enin%(I%|-5)=I%..|
|00000da0| ce 05 ed 0d 04 d8 04 0d | 04 e2 0f e3 20 49 25 3d |........|.... I%=|
|00000db0| 31 20 b8 20 32 35 0d 04 | ec 15 74 77 65 6e 69 6e |1 . 25..|..twenin|
|00000dc0| 25 28 49 25 2b 32 34 29 | 3d 49 25 0d 04 f6 05 ed |%(I%+24)|=I%.....|
|00000dd0| 0d 05 00 04 0d 05 0a 11 | e3 20 49 25 20 3d 20 34 |........|. I% = 4|
|00000de0| 20 b8 20 32 38 0d 05 14 | 14 74 77 65 65 69 67 25 | . 28...|.tweeig%|
|00000df0| 28 49 25 2d 34 29 3d 49 | 25 0d 05 1e 05 ed 0d 05 |(I%-4)=I|%.......|
|00000e00| 28 04 0d 05 32 0f e3 20 | 49 25 3d 31 20 b8 20 32 |(...2.. |I%=1 . 2|
|00000e10| 35 0d 05 3c 15 74 77 65 | 65 69 67 25 28 49 25 2b |5..<.twe|eig%(I%+|
|00000e20| 32 34 29 3d 49 25 0d 05 | 46 05 ed 0d 05 50 04 0d |24)=I%..|F....P..|
|00000e30| 05 5a 04 0d 05 64 2d e7 | 20 bb 28 c1 91 24 2c 31 |.Z...d-.| .(..$,1|
|00000e40| 32 2c 34 29 29 83 34 20 | 3d 30 20 84 20 bb 28 c1 |2,4)).4 |=0 . .(.|
|00000e50| 91 24 2c 31 32 2c 34 29 | 29 3d 32 30 30 30 20 8c |.$,12,4)|)=2000 .|
|00000e60| 0d 05 6e 0c 20 4c 65 61 | 70 25 3d b9 0d 05 78 46 |..n. Lea|p%=...xF|
|00000e70| cc 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e90| 3a f4 20 64 61 74 61 20 | 73 75 63 68 20 61 73 20 |:. data |such as |
|00000ea0| 6c 65 61 70 20 79 65 61 | 72 2c 20 63 75 72 72 65 |leap yea|r, curre|
|00000eb0| 6e 74 0d 05 82 3b 20 20 | 20 20 20 20 20 20 20 20 |nt...;  |        |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 79 65 61 72 |        | :. year|
|00000ee0| 20 6f 72 20 6e 65 78 74 | 20 79 65 61 72 0d 05 8c | or next| year...|
|00000ef0| 1c e7 20 28 bb 28 c1 91 | 24 2c 31 32 2c 34 29 29 |.. (.(..|$,12,4))|
|00000f00| 2b 31 29 83 34 3d 30 20 | 8c 0d 05 96 0f 20 4c 65 |+1).4=0 |..... Le|
|00000f10| 61 70 73 65 74 25 3d b9 | 0d 05 a0 06 20 cd 0d 05 |apset%=.|.... ...|
|00000f20| aa 05 cd 0d 05 be 39 f2 | 6c 6f 61 64 64 61 74 61 |......9.|loaddata|
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f40| 20 20 20 20 20 20 20 3a | f4 20 6c 6f 61 64 20 72 |       :|. load r|
|00000f50| 65 67 69 73 74 65 72 20 | 64 61 74 61 0d 05 c8 31 |egister |data...1|
|00000f60| f2 6c 6f 61 64 66 69 6c | 65 20 20 20 20 20 20 20 |.loadfil|e       |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f80| 3a f4 20 6c 6f 61 64 20 | 6e 61 6d 65 73 0d 05 d2 |:. load |names...|
|00000f90| 1b 2a 53 4c 4f 41 44 20 | 3c 4f 62 65 79 24 44 69 |.*SLOAD |<Obey$Di|
|00000fa0| 72 3e 2e 53 50 43 54 43 | 0d 05 dc 04 0d 05 e6 11 |r>.SPCTC|........|
|00000fb0| 77 65 65 6b 24 28 31 29 | 3d 22 54 68 22 0d 05 f0 |week$(1)|="Th"...|
|00000fc0| 11 77 65 65 6b 24 28 32 | 29 3d 22 46 72 22 0d 05 |.week$(2|)="Fr"..|
|00000fd0| fa 11 77 65 65 6b 24 28 | 33 29 3d 22 53 61 22 0d |..week$(|3)="Sa".|
|00000fe0| 06 04 11 77 65 65 6b 24 | 28 34 29 3d 22 53 75 22 |...week$|(4)="Su"|
|00000ff0| 0d 06 0e 11 77 65 65 6b | 24 28 35 29 3d 22 4d 6f |....week|$(5)="Mo|
|00001000| 22 0d 06 18 11 77 65 65 | 6b 24 28 36 29 3d 22 54 |"....wee|k$(6)="T|
|00001010| 75 22 0d 06 22 11 77 65 | 65 6b 24 28 37 29 3d 22 |u"..".we|ek$(7)="|
|00001020| 57 65 22 0d 06 2c 39 20 | 20 20 20 20 20 20 20 20 |We"..,9 |        |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001040| 20 20 20 20 20 20 20 3a | f4 20 64 61 79 73 20 69 |       :|. days i|
|00001050| 6e 20 65 61 63 68 20 6d | 6f 6e 74 68 0d 06 36 0c |n each m|onth..6.|
|00001060| 44 25 28 30 29 3d 33 30 | 0d 06 40 0c 44 25 28 31 |D%(0)=30|..@.D%(1|
|00001070| 29 3d 33 31 0d 06 4a 0c | 44 25 28 32 29 3d 33 30 |)=31..J.|D%(2)=30|
|00001080| 0d 06 54 0c 44 25 28 33 | 29 3d 33 31 0d 06 5e 0c |..T.D%(3|)=31..^.|
|00001090| 44 25 28 34 29 3d 33 31 | 0d 06 68 18 e7 20 4c 65 |D%(4)=31|..h.. Le|
|000010a0| 61 70 25 20 84 20 4c 65 | 61 70 73 65 74 25 20 8c |ap% . Le|apset% .|
|000010b0| 0d 06 72 0d 20 44 25 28 | 35 29 3d 32 39 0d 06 7c |..r. D%(|5)=29..||
|000010c0| 05 cc 0d 06 86 0d 20 44 | 25 28 35 29 3d 32 38 0d |...... D|%(5)=28.|
|000010d0| 06 90 05 cd 0d 06 9a 0c | 44 25 28 36 29 3d 33 31 |........|D%(6)=31|
|000010e0| 0d 06 a4 0c 44 25 28 37 | 29 3d 33 30 0d 06 ae 0c |....D%(7|)=30....|
|000010f0| 44 25 28 38 29 3d 33 31 | 0d 06 b8 0c 44 25 28 39 |D%(8)=31|....D%(9|
|00001100| 29 3d 33 30 0d 06 c2 0d | 44 25 28 31 30 29 3d 33 |)=30....|D%(10)=3|
|00001110| 31 0d 06 cc 04 0d 06 d6 | 19 4d 4f 4e 54 48 24 28 |1.......|.MONTH$(|
|00001120| 30 29 3d 22 53 65 70 74 | 65 6d 62 65 72 22 0d 06 |0)="Sept|ember"..|
|00001130| e0 17 4d 4f 4e 54 48 24 | 28 31 29 3d 22 4f 63 74 |..MONTH$|(1)="Oct|
|00001140| 6f 62 65 72 22 0d 06 ea | 18 4d 4f 4e 54 48 24 28 |ober"...|.MONTH$(|
|00001150| 32 29 3d 22 4e 6f 76 65 | 6d 62 65 72 22 0d 06 f4 |2)="Nove|mber"...|
|00001160| 18 4d 4f 4e 54 48 24 28 | 33 29 3d 22 44 65 63 65 |.MONTH$(|3)="Dece|
|00001170| 6d 62 65 72 22 0d 06 fe | 17 4d 4f 4e 54 48 24 28 |mber"...|.MONTH$(|
|00001180| 34 29 3d 22 4a 61 6e 75 | 61 72 79 22 0d 07 08 18 |4)="Janu|ary"....|
|00001190| 4d 4f 4e 54 48 24 28 35 | 29 3d 22 46 65 62 72 75 |MONTH$(5|)="Febru|
|000011a0| 61 72 79 22 0d 07 12 15 | 4d 4f 4e 54 48 24 28 36 |ary"....|MONTH$(6|
|000011b0| 29 3d 22 4d 61 72 63 68 | 22 0d 07 1c 15 4d 4f 4e |)="March|"....MON|
|000011c0| 54 48 24 28 37 29 3d 22 | 41 70 72 69 6c 22 0d 07 |TH$(7)="|April"..|
|000011d0| 26 13 4d 4f 4e 54 48 24 | 28 38 29 3d 22 4d 61 79 |&.MONTH$|(8)="May|
|000011e0| 22 0d 07 30 14 4d 4f 4e | 54 48 24 28 39 29 3d 22 |"..0.MON|TH$(9)="|
|000011f0| 4a 75 6e 65 22 0d 07 3a | 15 4d 4f 4e 54 48 24 28 |June"..:|.MONTH$(|
|00001200| 31 30 29 3d 22 4a 75 6c | 79 22 0d 07 44 17 4d 4f |10)="Jul|y"..D.MO|
|00001210| 4e 54 48 24 28 31 31 29 | 3d 22 41 75 67 75 73 74 |NTH$(11)|="August|
|00001220| 22 0d 07 4e 04 0d 07 58 | 3e 4d 4d 24 28 31 29 3d |"..N...X|>MM$(1)=|
|00001230| 22 43 72 65 61 74 65 20 | 6f 70 74 69 6f 6e 73 22 |"Create |options"|
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001250| 3a f4 20 6d 61 69 6e 20 | 6d 65 6e 75 20 74 69 74 |:. main |menu tit|
|00001260| 6c 65 73 0d 07 62 1e 4d | 4d 24 28 32 29 3d 22 52 |les..b.M|M$(2)="R|
|00001270| 65 67 69 73 74 65 72 20 | 73 74 75 64 65 6e 74 73 |egister |students|
|00001280| 22 0d 07 6c 19 4d 4d 24 | 28 33 29 3d 22 4c 69 73 |"..l.MM$|(3)="Lis|
|00001290| 74 20 6f 70 74 69 6f 6e | 73 22 0d 07 76 1a 4d 4d |t option|s"..v.MM|
|000012a0| 24 28 34 29 3d 22 41 6d | 65 6e 64 20 6f 70 74 69 |$(4)="Am|end opti|
|000012b0| 6f 6e 73 22 0d 07 80 21 | 4d 4d 24 28 35 29 3d 22 |ons"...!|MM$(5)="|
|000012c0| 47 72 61 70 68 73 20 6f | 66 20 61 74 74 65 6e 64 |Graphs o|f attend|
|000012d0| 61 6e 63 65 22 0d 07 8a | 1d 4d 4d 24 28 36 29 3d |ance"...|.MM$(6)=|
|000012e0| 22 4f 70 65 72 61 74 69 | 6e 67 20 73 79 73 74 65 |"Operati|ng syste|
|000012f0| 6d 22 0d 07 94 19 4d 4d | 24 28 37 29 3d 22 45 78 |m"....MM|$(7)="Ex|
|00001300| 69 74 20 70 72 6f 67 72 | 61 6d 22 0d 07 9e 04 0d |it progr|am".....|
|00001310| 07 a8 3b 4c 4d 24 28 31 | 29 3d 22 50 61 70 65 72 |..;LM$(1|)="Paper|
|00001320| 20 63 6f 70 69 65 73 22 | 20 20 20 20 20 20 20 20 | copies"|        |
|00001330| 20 20 20 20 20 20 20 3a | f4 20 6c 69 73 74 20 6d |       :|. list m|
|00001340| 65 6e 75 20 74 69 74 6c | 65 73 0d 07 b2 1e 4c 4d |enu titl|es....LM|
|00001350| 24 28 32 29 3d 22 49 6e | 64 69 76 69 64 75 61 6c |$(2)="In|dividual|
|00001360| 20 72 65 63 6f 72 64 22 | 0d 07 bc 17 4c 4d 24 28 | record"|....LM$(|
|00001370| 33 29 3d 22 57 68 6f 6c | 65 20 66 69 6c 65 22 0d |3)="Whol|e file".|
|00001380| 07 c6 1b 4c 4d 24 28 34 | 29 3d 22 42 79 20 74 75 |...LM$(4|)="By tu|
|00001390| 74 6f 72 20 67 72 6f 75 | 70 22 0d 07 d0 13 4c 4d |tor grou|p"....LM|
|000013a0| 24 28 35 29 3d 22 42 79 | 20 73 65 74 22 0d 07 da |$(5)="By| set"...|
|000013b0| 1f 4c 4d 24 28 36 29 3d | 22 50 61 67 65 20 74 68 |.LM$(6)=|"Page th|
|000013c0| 72 6f 75 67 68 20 67 72 | 6f 75 70 22 0d 07 e4 1e |rough gr|oup"....|
|000013d0| 4c 4d 24 28 37 29 3d 22 | 54 6f 2d 64 61 79 27 73 |LM$(7)="|To-day's|
|000013e0| 20 61 62 73 65 6e 63 65 | 73 22 0d 07 ee 1d 4c 4d | absence|s"....LM|
|000013f0| 24 28 38 29 3d 22 54 6f | 2d 64 61 79 27 73 20 70 |$(8)="To|-day's p|
|00001400| 72 65 73 65 6e 74 22 0d | 07 f8 17 4c 4d 24 28 39 |resent".|...LM$(9|
|00001410| 29 3d 22 4c 69 73 74 20 | 6e 6f 74 65 73 22 0d 08 |)="List |notes"..|
|00001420| 02 25 4c 4d 24 28 31 30 | 29 3d 22 4c 69 73 74 20 |.%LM$(10|)="List |
|00001430| 73 74 75 64 65 6e 74 20 | 69 64 65 6e 74 69 74 69 |student |identiti|
|00001440| 65 73 22 0d 08 0c 1b 4c | 4d 24 28 31 31 29 3d 22 |es"....L|M$(11)="|
|00001450| 4c 69 73 74 20 6c 6f 67 | 20 6f 75 74 73 22 0d 08 |List log| outs"..|
|00001460| 16 22 4c 4d 24 28 31 32 | 29 3d 22 4c 69 73 74 20 |."LM$(12|)="List |
|00001470| 6c 6f 67 20 6f 75 74 20 | 72 65 74 75 72 6e 73 22 |log out |returns"|
|00001480| 0d 08 20 1c 4c 4d 24 28 | 31 33 29 3d 22 4c 69 73 |.. .LM$(|13)="Lis|
|00001490| 74 20 6c 61 74 65 20 66 | 69 6c 65 22 0d 08 2a 17 |t late f|ile"..*.|
|000014a0| 4c 4d 24 28 31 34 29 3d | 22 45 6e 64 20 6c 69 73 |LM$(14)=|"End lis|
|000014b0| 74 73 22 0d 08 34 04 0d | 08 3e 40 41 4d 24 28 31 |ts"..4..|.>@AM$(1|
|000014c0| 29 3d 22 41 64 64 20 61 | 20 72 65 63 6f 72 64 22 |)="Add a| record"|
|000014d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|000014e0| f4 20 41 6d 65 6e 64 6d | 65 6e 74 20 6d 65 6e 75 |. Amendm|ent menu|
|000014f0| 20 74 69 74 6c 65 73 0d | 08 48 1c 41 4d 24 28 32 | titles.|.H.AM$(2|
|00001500| 29 3d 22 44 65 6c 65 74 | 65 20 61 20 72 65 63 6f |)="Delet|e a reco|
|00001510| 72 64 22 0d 08 52 1f 41 | 4d 24 28 33 29 3d 22 52 |rd"..R.A|M$(3)="R|
|00001520| 65 6e 61 6d 65 20 74 75 | 74 6f 72 20 67 72 6f 75 |ename tu|tor grou|
|00001530| 70 22 0d 08 5c 1e 41 4d | 24 28 34 29 3d 22 53 77 |p"..\.AM|$(4)="Sw|
|00001540| 6f 70 20 74 75 74 6f 72 | 20 67 72 6f 75 70 73 22 |op tutor| groups"|
|00001550| 0d 08 66 1a 41 4d 24 28 | 35 29 3d 22 43 68 61 6e |..f.AM$(|5)="Chan|
|00001560| 67 65 20 61 20 6e 61 6d | 65 22 0d 08 70 1b 41 4d |ge a nam|e"..p.AM|
|00001570| 24 28 36 29 3d 22 45 6e | 64 20 61 6d 65 6e 64 6d |$(6)="En|d amendm|
|00001580| 65 6e 74 73 22 0d 08 7a | 04 0d 08 84 20 43 4d 24 |ents"..z|.... CM$|
|00001590| 28 31 29 3d 22 53 65 74 | 20 75 70 20 69 6e 69 74 |(1)="Set| up init|
|000015a0| 69 61 6c 20 64 61 74 61 | 22 0d 08 8e 1e 43 4d 24 |ial data|"....CM$|
|000015b0| 28 32 29 3d 22 53 65 74 | 20 75 70 20 6e 61 6d 65 |(2)="Set| up name|
|000015c0| 73 20 66 69 6c 65 22 0d | 08 98 1c 43 4d 24 28 33 |s file".|...CM$(3|
|000015d0| 29 3d 22 53 65 74 20 75 | 70 20 72 65 67 69 73 74 |)="Set u|p regist|
|000015e0| 65 72 22 0d 08 a2 28 43 | 4d 24 28 34 29 3d 22 53 |er"...(C|M$(4)="S|
|000015f0| 65 74 20 75 70 20 74 69 | 6d 65 20 72 65 63 6f 72 |et up ti|me recor|
|00001600| 64 69 6e 67 20 66 69 6c | 65 73 22 0d 08 ac 1f 43 |ding fil|es"....C|
|00001610| 4d 24 28 35 29 3d 22 53 | 65 74 20 63 72 69 74 69 |M$(5)="S|et criti|
|00001620| 63 61 6c 20 74 69 6d 65 | 73 22 0d 08 b6 17 43 4d |cal time|s"....CM|
|00001630| 24 28 36 29 3d 22 45 6e | 64 20 73 65 74 20 75 70 |$(6)="En|d set up|
|00001640| 22 0d 08 c0 04 0d 08 ca | 26 47 4d 24 28 31 29 3d |".......|&GM$(1)=|
|00001650| 22 41 74 74 65 6e 64 61 | 6e 63 65 20 62 79 20 74 |"Attenda|nce by t|
|00001660| 75 74 6f 72 20 67 72 6f | 75 70 22 0d 08 d4 23 47 |utor gro|up"...#G|
|00001670| 4d 24 28 32 29 3d 22 41 | 62 73 65 6e 63 65 20 62 |M$(2)="A|bsence b|
|00001680| 79 20 74 75 74 6f 72 20 | 67 72 6f 75 70 22 0d 08 |y tutor |group"..|
|00001690| de 24 47 4d 24 28 33 29 | 3d 22 4c 61 74 65 6e 65 |.$GM$(3)|="Latene|
|000016a0| 73 73 20 62 79 20 74 75 | 74 6f 72 20 67 72 6f 75 |ss by tu|tor grou|
|000016b0| 70 22 0d 08 e8 26 47 4d | 24 28 34 29 3d 22 54 6f |p"...&GM|$(4)="To|
|000016c0| 74 61 6c 20 61 74 74 65 | 6e 64 61 6e 63 65 20 62 |tal atte|ndance b|
|000016d0| 79 20 6d 6f 6e 74 68 22 | 0d 08 f2 23 47 4d 24 28 |y month"|...#GM$(|
|000016e0| 35 29 3d 22 54 6f 74 61 | 6c 20 61 62 73 65 6e 63 |5)="Tota|l absenc|
|000016f0| 65 20 62 79 20 6d 6f 6e | 74 68 22 0d 08 fc 24 47 |e by mon|th"...$G|
|00001700| 4d 24 28 36 29 3d 22 54 | 6f 74 61 6c 20 6c 61 74 |M$(6)="T|otal lat|
|00001710| 65 6e 65 73 73 20 62 79 | 20 6d 6f 6e 74 68 22 0d |eness by| month".|
|00001720| 09 06 17 47 4d 24 28 37 | 29 3d 22 45 6e 64 20 67 |...GM$(7|)="End g|
|00001730| 72 61 70 68 73 22 0d 09 | 10 04 0d 09 1a 0b 65 78 |raphs"..|......ex|
|00001740| 69 74 25 3d a3 0d 09 24 | 0a 70 6f 6e 25 3d a3 0d |it%=...$|.pon%=..|
|00001750| 09 2e 43 f2 77 68 69 63 | 68 6d 6f 6e 74 68 20 20 |..C.whic|hmonth  |
|00001760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001770| 20 20 20 3a f4 20 69 64 | 65 6e 74 69 66 79 20 74 |   :. id|entify t|
|00001780| 68 69 73 20 6d 6f 6e 74 | 68 20 61 6e 64 20 74 65 |his mont|h and te|
|00001790| 72 6d 0d 09 38 0d f2 6d | 6f 6e 74 68 64 61 79 0d |rm..8..m|onthday.|
|000017a0| 09 42 04 0d 09 4c 0e ee | 20 85 3a f2 65 72 72 6f |.B...L..| .:.erro|
|000017b0| 72 0d 09 56 20 63 68 61 | 6e 6e 65 6c 3d ad 28 22 |r..V cha|nnel=.("|
|000017c0| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 61 74 74 66 22 |<Obey$Di|r>.attf"|
|000017d0| 29 0d 09 60 04 0d 09 6a | 33 20 20 f5 20 20 20 20 |)..`...j|3  .    |
|000017e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017f0| 20 20 20 20 20 20 20 3a | f4 20 65 72 72 6f 72 20 |       :|. error |
|00001800| 68 61 6e 64 6c 69 6e 67 | 0d 09 74 0c 20 20 2a 46 |handling|..t.  *F|
|00001810| 58 34 2c 31 0d 09 7e 33 | 20 20 20 20 20 f2 6d 65 |X4,1..~3|     .me|
|00001820| 6e 75 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nu      |        |
|00001830| 20 20 20 20 20 20 20 20 | 3a f4 20 4d 41 49 4e 20 |        |:. MAIN |
|00001840| 50 52 4f 47 52 41 4d 0d | 09 88 0c 20 20 fd 20 65 |PROGRAM.|...  . e|
|00001850| 78 74 25 0d 09 92 0c 20 | 20 2a 46 58 34 2c 30 0d |xt%.... | *FX4,0.|
|00001860| 09 9c 05 e0 0d 09 a6 04 | 0d 09 b0 1d f4 20 20 20 |........|.....   |
|00001870| 50 72 6f 63 65 64 75 72 | 65 20 64 65 66 69 6e 69 |Procedur|e defini|
|00001880| 74 69 6f 6e 73 0d 09 ba | 04 0d 09 c4 37 dd f2 6d |tions...|....7..m|
|00001890| 65 6e 75 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |enu     |        |
|000018a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018b0| 20 20 20 20 3a f4 20 4d | 61 69 6e 20 6d 65 6e 75 |    :. M|ain menu|
|000018c0| 0d 09 ce 05 f5 0d 09 d8 | 09 20 20 eb 31 32 0d 09 |........|.  .12..|
|000018d0| e2 1d 20 20 f2 68 65 61 | 64 65 72 28 22 52 45 47 |..  .hea|der("REG|
|000018e0| 49 53 54 52 41 54 49 4f | 4e 22 29 0d 09 ec 3b 20 |ISTRATIO|N")...; |
|000018f0| 20 f1 8a 35 2c 32 38 29 | 3b 22 52 65 67 20 76 65 | ..5,28)|;"Reg ve|
|00001900| 72 20 31 2e 30 38 20 28 | 63 29 20 49 2e 20 4c 79 |r 1.08 (|c) I. Ly|
|00001910| 6e 63 68 20 32 36 74 68 | 20 4f 63 74 6f 62 65 72 |nch 26th| October|
|00001920| 20 31 39 39 31 22 0d 09 | f6 41 20 20 20 f2 63 6f | 1991"..|.A   .co|
|00001930| 6e 74 6d 6f 75 73 65 28 | 4d 4d 24 28 29 2c 37 2c |ntmouse(|MM$(),7,|
|00001940| 32 30 29 20 20 20 3a f4 | 20 6d 6f 75 73 65 20 73 |20)   :.| mouse s|
|00001950| 65 6c 65 63 74 69 6f 6e | 20 61 6e 64 20 68 69 67 |election| and hig|
|00001960| 68 6c 69 67 68 74 73 0d | 0a 00 0e 20 20 20 69 74 |hlights.|...   it|
|00001970| 65 6d 25 3d 30 0d 0a 0a | 0b 20 20 20 20 20 20 f5 |em%=0...|.      .|
|00001980| 0d 0a 14 1a 20 20 20 20 | 20 20 20 20 20 69 74 65 |....    |     ite|
|00001990| 6d 25 3d 69 74 65 6d 25 | 2b 31 0d 0a 1e 18 20 20 |m%=item%|+1....  |
|000019a0| 20 20 20 20 fd 20 42 28 | 69 74 65 6d 25 29 3d 31 |    . B(|item%)=1|
|000019b0| 33 31 0d 0a 28 04 0d 0a | 32 11 20 20 20 c8 8e 20 |31..(...|2.   .. |
|000019c0| 69 74 65 6d 25 20 ca 0d | 0a 3c 12 20 20 20 20 20 |item% ..|.<.     |
|000019d0| c9 20 31 20 3a f2 63 62 | 31 0d 0a 46 12 20 20 20 |. 1 :.cb|1..F.   |
|000019e0| 20 20 c9 20 32 20 3a f2 | 63 62 32 0d 0a 50 12 20 |  . 2 :.|cb2..P. |
|000019f0| 20 20 20 20 c9 20 33 20 | 3a f2 63 62 33 0d 0a 5a |    . 3 |:.cb3..Z|
|00001a00| 12 20 20 20 20 20 c9 20 | 34 20 3a f2 63 62 34 0d |.     . |4 :.cb4.|
|00001a10| 0a 64 12 20 20 20 20 20 | c9 20 35 20 3a f2 63 62 |.d.     |. 5 :.cb|
|00001a20| 35 0d 0a 6e 12 20 20 20 | 20 20 c9 20 36 20 3a f2 |5..n.   |  . 6 :.|
|00001a30| 63 62 36 0d 0a 78 12 20 | 20 20 20 20 c9 20 37 20 |cb6..x. |    . 7 |
|00001a40| 3a f2 63 62 37 0d 0a 82 | 08 20 20 20 cb 0d 0a 8c |:.cb7...|.   ....|
|00001a50| 04 0d 0a 96 0a fd 20 65 | 78 74 25 0d 0a a0 05 e1 |...... e|xt%.....|
|00001a60| 0d 0a aa 04 0d 0a b4 09 | dd f2 63 62 31 0d 0a be |........|..cb1...|
|00001a70| 1e 20 e7 20 42 55 54 25 | 3d 34 3a f2 63 72 65 61 |. . BUT%|=4:.crea|
|00001a80| 74 65 6d 65 6e 75 3a 45 | 25 3d b9 0d 0a c8 2a 20 |temenu:E|%=....* |
|00001a90| e7 20 42 55 54 25 3d 31 | 3a f2 68 65 6c 70 28 22 |. BUT%=1|:.help("|
|00001aa0| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 48 45 4c 50 2e |<Obey$Di|r>.HELP.|
|00001ab0| 48 43 46 22 29 0d 0a d2 | 05 e1 0d 0a dc 04 0d 0a |HCF")...|........|
|00001ac0| e6 0a 20 dd f2 63 62 32 | 0d 0a f0 23 20 20 e7 20 |.. ..cb2|...#  . |
|00001ad0| 42 55 54 25 3d 34 3a f2 | 6d 61 72 6b 72 65 67 3a |BUT%=4:.|markreg:|
|00001ae0| 65 78 69 74 25 3d b9 3a | d9 23 30 0d 0a fa 2f 20 |exit%=.:|.#0.../ |
|00001af0| 20 e7 20 42 55 54 25 3d | 31 3a f2 68 65 6c 70 28 | . BUT%=|1:.help(|
|00001b00| 22 3c 4f 62 65 79 24 44 | 69 72 3e 2e 48 45 4c 50 |"<Obey$D|ir>.HELP|
|00001b10| 2e 4d 41 52 4b 52 45 47 | 22 29 0d 0b 04 06 20 e1 |.MARKREG|").... .|
|00001b20| 0d 0b 0e 04 0d 0b 18 09 | dd f2 63 62 33 0d 0b 22 |........|..cb3.."|
|00001b30| 1c 20 e7 20 42 55 54 25 | 3d 34 3a f2 6c 69 73 74 |. . BUT%|=4:.list|
|00001b40| 6d 65 6e 75 3a 45 25 3d | b9 0d 0b 2c 2b 20 e7 20 |menu:E%=|...,+ . |
|00001b50| 42 55 54 25 3d 31 3a f2 | 68 65 6c 70 28 22 3c 4f |BUT%=1:.|help("<O|
|00001b60| 62 65 79 24 44 69 72 3e | 2e 48 45 4c 50 2e 48 4c |bey$Dir>|.HELP.HL|
|00001b70| 49 46 22 29 0d 0b 36 05 | e1 0d 0b 40 04 0d 0b 4a |IF")..6.|...@...J|
|00001b80| 09 dd f2 63 62 34 0d 0b | 54 18 20 e7 20 42 55 54 |...cb4..|T. . BUT|
|00001b90| 25 3d 34 3a f2 61 6d 65 | 6e 64 6d 65 6e 75 0d 0b |%=4:.ame|ndmenu..|
|00001ba0| 5e 2b 20 e7 20 42 55 54 | 25 3d 31 3a f2 68 65 6c |^+ . BUT|%=1:.hel|
|00001bb0| 70 28 22 3c 4f 62 65 79 | 24 44 69 72 3e 2e 48 45 |p("<Obey|$Dir>.HE|
|00001bc0| 4c 50 2e 48 41 4d 46 22 | 29 0d 0b 68 0d f2 73 61 |LP.HAMF"|)..h..sa|
|00001bd0| 76 65 66 69 6c 65 0d 0b | 72 0d f2 73 61 76 65 64 |vefile..|r..saved|
|00001be0| 61 74 61 0d 0b 7c 05 e1 | 0d 0b 86 04 0d 0b 90 09 |ata..|..|........|
|00001bf0| dd f2 63 62 35 0d 0b 9a | 18 20 e7 20 42 55 54 25 |..cb5...|. . BUT%|
|00001c00| 3d 34 3a f2 67 72 61 70 | 68 6d 65 6e 75 0d 0b a4 |=4:.grap|hmenu...|
|00001c10| 2c 20 e7 20 42 55 54 25 | 3d 31 3a f2 68 65 6c 70 |, . BUT%|=1:.help|
|00001c20| 28 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 48 45 4c |("<Obey$|Dir>.HEL|
|00001c30| 50 2e 47 52 41 50 48 22 | 29 0d 0b ae 05 e1 0d 0b |P.GRAPH"|).......|
|00001c40| b8 04 0d 0b c2 09 dd f2 | 63 62 36 0d 0b cc 16 20 |........|cb6.... |
|00001c50| e7 20 42 55 54 25 3d 34 | 3a f2 6f 73 79 73 74 65 |. BUT%=4|:.osyste|
|00001c60| 6d 0d 0b d6 2a 20 e7 20 | 42 55 54 25 3d 31 3a f2 |m...* . |BUT%=1:.|
|00001c70| 68 65 6c 70 28 22 3c 4f | 62 65 79 24 44 69 72 3e |help("<O|bey$Dir>|
|00001c80| 2e 48 45 4c 50 2e 48 4f | 53 22 29 0d 0b e0 05 e1 |.HELP.HO|S").....|
|00001c90| 0d 0b ea 04 0d 0b f4 09 | dd f2 63 62 37 0d 0b fe |........|..cb7...|
|00001ca0| 13 20 e7 20 42 55 54 25 | 3d 34 3a f2 65 78 69 74 |. . BUT%|=4:.exit|
|00001cb0| 0d 0c 08 2a 20 e7 20 42 | 55 54 25 3d 31 3a f2 68 |...* . B|UT%=1:.h|
|00001cc0| 65 6c 70 28 22 3c 4f 62 | 65 79 24 44 69 72 3e 2e |elp("<Ob|ey$Dir>.|
|00001cd0| 48 45 4c 50 2e 48 45 58 | 22 29 0d 0c 12 05 e1 0d |HELP.HEX|")......|
|00001ce0| 0c 1c 04 0d 0c 26 10 dd | f2 63 72 65 61 74 65 6d |.....&..|.createm|
|00001cf0| 65 6e 75 0d 0c 30 0d f2 | 70 61 73 73 77 6f 72 64 |enu..0..|password|
|00001d00| 0d 0c 3a 05 f5 0d 0c 44 | 07 eb 31 32 0d 0c 4e 12 |..:....D|..12..N.|
|00001d10| 20 20 f2 64 65 6c 61 79 | 28 32 30 30 30 29 0d 0c |  .delay|(2000)..|
|00001d20| 58 21 20 20 f2 68 65 61 | 64 65 72 28 22 53 65 74 |X!  .hea|der("Set|
|00001d30| 74 69 6e 67 20 75 70 20 | 66 69 6c 65 73 22 29 0d |ting up |files").|
|00001d40| 0c 62 1c 20 20 f2 63 6f | 6e 74 6d 6f 75 73 65 28 |.b.  .co|ntmouse(|
|00001d50| 43 4d 24 28 29 2c 36 2c | 32 30 29 0d 0c 6c 18 20 |CM$(),6,|20)..l. |
|00001d60| 20 20 20 e7 20 42 28 31 | 29 3d 31 33 31 20 3a f2 |   . B(1|)=131 :.|
|00001d70| 63 6d 31 0d 0c 76 18 20 | 20 20 20 e7 20 42 28 32 |cm1..v. |   . B(2|
|00001d80| 29 3d 31 33 31 20 3a f2 | 63 6d 32 0d 0c 80 18 20 |)=131 :.|cm2.... |
|00001d90| 20 20 20 e7 20 42 28 33 | 29 3d 31 33 31 20 3a f2 |   . B(3|)=131 :.|
|00001da0| 63 6d 33 0d 0c 8a 18 20 | 20 20 20 e7 20 42 28 34 |cm3.... |   . B(4|
|00001db0| 29 3d 31 33 31 20 3a f2 | 63 6d 34 0d 0c 94 18 20 |)=131 :.|cm4.... |
|00001dc0| 20 20 20 e7 20 42 28 35 | 29 3d 31 33 31 20 3a f2 |   . B(5|)=131 :.|
|00001dd0| 63 6d 35 0d 0c 9e 1b 20 | 20 20 20 fd 20 42 28 36 |cm5.... |   . B(6|
|00001de0| 29 3d 31 33 31 20 80 20 | 42 55 54 25 3d 34 0d 0c |)=131 . |BUT%=4..|
|00001df0| a8 05 e1 0d 0c b2 04 0d | 0c bc 0a 20 dd f2 63 6d |........|... ..cm|
|00001e00| 31 0d 0c c6 19 20 20 e7 | 20 42 55 54 25 3d 34 3a |1....  .| BUT%=4:|
|00001e10| f2 74 67 6d 65 6e 75 73 | 65 74 0d 0c d0 2e 20 20 |.tgmenus|et....  |
|00001e20| e7 20 42 55 54 25 3d 31 | 20 3a f2 68 65 6c 70 28 |. BUT%=1| :.help(|
|00001e30| 22 3c 4f 62 65 79 24 44 | 69 72 3e 2e 48 45 4c 50 |"<Obey$D|ir>.HELP|
|00001e40| 2e 54 47 4d 45 4e 22 29 | 0d 0c da 06 20 e1 0d 0c |.TGMEN")|.... ...|
|00001e50| e4 04 0d 0c ee 0a 20 dd | f2 63 6d 32 0d 0c f8 16 |...... .|.cm2....|
|00001e60| 20 20 e7 20 42 55 54 25 | 3d 34 3a f2 61 70 70 65 |  . BUT%|=4:.appe|
|00001e70| 6e 64 0d 0d 02 2d 20 20 | e7 20 42 55 54 25 3d 31 |nd...-  |. BUT%=1|
|00001e80| 3a f2 68 65 6c 70 28 22 | 3c 4f 62 65 79 24 44 69 |:.help("|<Obey$Di|
|00001e90| 72 3e 2e 48 45 4c 50 2e | 4e 41 4d 45 53 22 29 0d |r>.HELP.|NAMES").|
|00001ea0| 0d 0c 06 20 e1 0d 0d 16 | 04 0d 0d 20 0a 20 dd f2 |... ....|... . ..|
|00001eb0| 63 6d 33 0d 0d 2a 19 20 | 20 e7 20 42 55 54 25 3d |cm3..*. | . BUT%=|
|00001ec0| 34 3a f2 63 72 65 61 74 | 65 72 65 67 0d 0d 34 2e |4:.creat|ereg..4.|
|00001ed0| 20 20 e7 20 42 55 54 25 | 3d 31 3a f2 68 65 6c 70 |  . BUT%|=1:.help|
|00001ee0| 28 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 48 45 4c |("<Obey$|Dir>.HEL|
|00001ef0| 50 2e 52 45 47 44 45 54 | 22 29 0d 0d 3e 06 20 e1 |P.REGDET|")..>. .|
|00001f00| 0d 0d 48 04 0d 0d 52 0a | 20 dd f2 63 6d 34 0d 0d |..H...R.| ..cm4..|
|00001f10| 5c 1f 20 20 e7 20 42 55 | 54 25 3d 34 3a f2 63 72 |\.  . BU|T%=4:.cr|
|00001f20| 65 61 74 65 62 6c 61 6e | 6b 66 69 6c 65 0d 0d 66 |eateblan|kfile..f|
|00001f30| 2c 20 20 e7 20 42 55 54 | 25 3d 31 3a f2 68 65 6c |,  . BUT|%=1:.hel|
|00001f40| 70 28 22 3c 4f 62 65 79 | 24 44 69 72 3e 2e 48 45 |p("<Obey|$Dir>.HE|
|00001f50| 4c 50 2e 42 46 49 4c 22 | 29 0d 0d 70 06 20 e1 0d |LP.BFIL"|)..p. ..|
|00001f60| 0d 7a 04 0d 0d 84 0a 20 | dd f2 63 6d 35 0d 0d 8e |.z..... |..cm5...|
|00001f70| 19 20 20 e7 20 42 55 54 | 25 3d 34 3a f2 73 65 74 |.  . BUT|%=4:.set|
|00001f80| 5f 74 69 6d 65 73 0d 0d | 98 2c 20 20 e7 20 42 55 |_times..|.,  . BU|
|00001f90| 54 25 3d 31 3a f2 68 65 | 6c 70 28 22 3c 4f 62 65 |T%=1:.he|lp("<Obe|
|00001fa0| 79 24 44 69 72 3e 2e 48 | 45 4c 50 2e 53 45 54 54 |y$Dir>.H|ELP.SETT|
|00001fb0| 22 29 0d 0d a2 06 20 e1 | 0d 0d ac 04 0d 0d b6 10 |").... .|........|
|00001fc0| 20 dd f2 73 65 74 5f 74 | 69 6d 65 73 0d 0d c0 06 | ..set_t|imes....|
|00001fd0| 20 db 0d 0d ca 24 20 74 | 69 6d 65 66 3d ae 28 22 | ....$ t|imef=.("|
|00001fe0| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 63 72 74 5f 74 |<Obey$Di|r>.crt_t|
|00001ff0| 69 6d 65 73 22 29 0d 0d | d4 44 20 20 e8 20 22 48 |imes")..|.D  . "H|
|00002000| 6f 75 72 20 6f 66 20 66 | 69 72 73 74 20 74 69 6d |our of f|irst tim|
|00002010| 65 20 65 67 20 38 20 6f | 72 20 39 20 20 20 20 28 |e eg 8 o|r 9    (|
|00002020| 64 65 66 61 75 6c 74 20 | 69 73 20 38 29 22 3b 74 |default |is 8)";t|
|00002030| 69 6d 73 74 6f 72 25 28 | 31 29 0d 0d de 45 20 20 |imstor%(|1)...E  |
|00002040| e8 20 22 4d 69 6e 75 74 | 65 73 20 6f 66 20 66 69 |. "Minut|es of fi|
|00002050| 72 73 74 20 74 69 6d 65 | 20 65 67 20 31 30 20 20 |rst time| eg 10  |
|00002060| 20 20 20 28 64 65 66 61 | 75 6c 74 20 69 73 20 32 |   (defa|ult is 2|
|00002070| 39 29 22 3b 74 69 6d 73 | 74 6f 72 25 28 32 29 0d |9)";tims|tor%(2).|
|00002080| 0d e8 45 20 20 e8 20 22 | 48 6f 75 72 20 6f 66 20 |..E  . "|Hour of |
|00002090| 73 65 63 6f 6e 64 20 74 | 69 6d 65 20 65 67 20 31 |second t|ime eg 1|
|000020a0| 31 20 6f 72 20 31 32 20 | 28 64 65 66 61 75 6c 74 |1 or 12 |(default|
|000020b0| 20 69 73 20 31 31 29 22 | 3b 74 69 6d 73 74 6f 72 | is 11)"|;timstor|
|000020c0| 25 28 33 29 0d 0d f2 45 | 20 20 e8 20 22 4d 69 6e |%(3)...E|  . "Min|
|000020d0| 75 74 65 73 20 6f 66 20 | 73 65 63 6f 6e 64 20 74 |utes of |second t|
|000020e0| 69 6d 65 20 65 67 20 31 | 30 20 20 20 20 28 64 65 |ime eg 1|0    (de|
|000020f0| 66 61 75 6c 74 20 69 73 | 20 35 39 29 22 3b 74 69 |fault is| 59)";ti|
|00002100| 6d 73 74 6f 72 25 28 34 | 29 0d 0d fc 45 20 20 e8 |mstor%(4|)...E  .|
|00002110| 20 22 48 6f 75 72 20 6f | 66 20 74 68 69 72 64 20 | "Hour o|f third |
|00002120| 74 69 6d 65 20 65 67 20 | 31 33 20 6f 72 20 31 34 |time eg |13 or 14|
|00002130| 20 20 28 64 65 66 61 75 | 6c 74 20 69 73 20 31 34 |  (defau|lt is 14|
|00002140| 29 22 3b 74 69 6d 73 74 | 6f 72 25 28 35 29 0d 0e |)";timst|or%(5)..|
|00002150| 06 44 20 20 e8 20 22 4d | 69 6e 75 74 65 73 20 6f |.D  . "M|inutes o|
|00002160| 66 20 74 68 69 72 64 20 | 74 69 6d 65 20 65 67 20 |f third |time eg |
|00002170| 31 30 20 20 20 20 20 28 | 64 65 66 61 75 6c 74 20 |10     (|default |
|00002180| 69 73 20 39 29 22 3b 74 | 69 6d 73 74 6f 72 25 28 |is 9)";t|imstor%(|
|00002190| 36 29 0d 0e 10 45 20 20 | e8 20 22 48 6f 75 72 20 |6)...E  |. "Hour |
|000021a0| 6f 66 20 66 6f 75 72 74 | 68 20 74 69 6d 65 20 65 |of fourt|h time e|
|000021b0| 67 20 31 35 20 20 20 20 | 20 20 20 28 64 65 66 61 |g 15    |   (defa|
|000021c0| 75 6c 74 20 69 73 20 31 | 35 29 22 3b 74 69 6d 73 |ult is 1|5)";tims|
|000021d0| 74 6f 72 25 28 37 29 0d | 0e 1a 44 20 20 e8 20 22 |tor%(7).|..D  . "|
|000021e0| 4d 69 6e 75 74 65 73 20 | 6f 66 20 66 6f 75 72 74 |Minutes |of fourt|
|000021f0| 68 20 74 69 6d 65 20 65 | 67 20 31 30 20 20 20 20 |h time e|g 10    |
|00002200| 28 64 65 66 61 75 6c 74 | 20 69 73 20 39 29 22 3b |(default| is 9)";|
|00002210| 74 69 6d 73 74 6f 72 25 | 28 38 29 0d 0e 24 04 0d |timstor%|(8)..$..|
|00002220| 0e 2e 15 20 20 e3 20 74 | 69 6d 65 73 25 3d 20 31 |...  . t|imes%= 1|
|00002230| 20 b8 20 38 0d 0e 38 21 | 20 20 20 20 20 f1 23 74 | . 8..8!|     .#t|
|00002240| 69 6d 65 66 2c 74 69 6d | 73 74 6f 72 25 28 74 69 |imef,tim|stor%(ti|
|00002250| 6d 65 73 25 29 0d 0e 42 | 07 20 20 ed 0d 0e 4c 10 |mes%)..B|.  ...L.|
|00002260| 20 20 20 20 20 d9 23 74 | 69 6d 65 66 0d 0e 56 07 |     .#t|imef..V.|
|00002270| 20 20 e1 0d 0e 60 04 0d | 0e 6a 16 20 dd f2 63 72 |  ...`..|.j. ..cr|
|00002280| 65 61 74 65 62 6c 61 6e | 6b 66 69 6c 65 0d 0e 74 |eateblan|kfile..t|
|00002290| 06 20 db 0d 0e 7e 06 20 | f5 0d 0e 88 2d 20 e8 22 |. ...~. |....- ."|
|000022a0| 57 68 69 63 68 20 66 69 | 6c 65 3f 20 28 49 4e 2c |Which fi|le? (IN,|
|000022b0| 20 4f 55 54 20 6f 72 20 | 4c 41 54 45 29 20 22 3b | OUT or |LATE) ";|
|000022c0| 62 66 69 6c 65 24 0d 0e | 92 31 20 fd 20 62 66 69 |bfile$..|.1 . bfi|
|000022d0| 6c 65 24 3d 22 49 4e 22 | 20 84 20 62 66 69 6c 65 |le$="IN"| . bfile|
|000022e0| 24 3d 22 4f 55 54 22 20 | 84 20 62 66 69 6c 65 24 |$="OUT" |. bfile$|
|000022f0| 3d 22 4c 41 54 45 22 0d | 0e 9c 22 20 66 69 6c 65 |="LATE".|.." file|
|00002300| 63 3d ae 28 22 3c 4f 62 | 65 79 24 44 49 52 3e 2e |c=.("<Ob|ey$DIR>.|
|00002310| 22 2b 62 66 69 6c 65 24 | 29 0d 0e a6 2a 20 f1 23 |"+bfile$|)...* .#|
|00002320| 66 69 6c 65 63 2c 8f 23 | 66 69 6c 65 63 3a d5 23 |filec,.#|filec:.#|
|00002330| 66 69 6c 65 63 2c 31 33 | 3a d5 23 66 69 6c 65 63 |filec,13|:.#filec|
|00002340| 2c 31 33 0d 0e b0 0c 20 | d9 23 66 69 6c 65 63 0d |,13.... |.#filec.|
|00002350| 0e ba 06 20 e1 0d 0e c4 | 04 0d 0e ce 31 dd f2 6c |... ....|....1..l|
|00002360| 69 73 74 6d 65 6e 75 20 | 20 20 20 20 20 20 20 20 |istmenu |        |
|00002370| 20 20 20 20 20 20 20 20 | 20 3a f4 20 6d 65 6e 75 |        | :. menu|
|00002380| 20 66 6f 72 20 6c 69 73 | 74 73 0d 0e d8 05 f5 0d | for lis|ts......|
|00002390| 0e e2 09 20 20 eb 31 32 | 0d 0e ec 12 20 20 f2 64 |...  .12|....  .d|
|000023a0| 65 6c 61 79 28 32 30 30 | 30 29 0d 0e f6 1d 20 20 |elay(200|0)....  |
|000023b0| f2 68 65 61 64 65 72 28 | 22 4c 69 73 74 20 4f 70 |.header(|"List Op|
|000023c0| 74 69 6f 6e 73 22 29 0d | 0f 00 1d 20 20 f2 63 6f |tions").|...  .co|
|000023d0| 6e 74 6d 6f 75 73 65 28 | 4c 4d 24 28 29 2c 31 34 |ntmouse(|LM$(),14|
|000023e0| 2c 32 33 29 0d 0f 0a 18 | 20 20 20 20 e7 20 42 28 |,23)....|    . B(|
|000023f0| 31 29 3d 31 33 31 20 3a | f2 6c 6d 31 0d 0f 14 18 |1)=131 :|.lm1....|
|00002400| 20 20 20 20 e7 20 42 28 | 32 29 3d 31 33 31 20 3a |    . B(|2)=131 :|
|00002410| f2 6c 6d 32 0d 0f 1e 18 | 20 20 20 20 e7 20 42 28 |.lm2....|    . B(|
|00002420| 33 29 3d 31 33 31 20 3a | f2 6c 6d 33 0d 0f 28 18 |3)=131 :|.lm3..(.|
|00002430| 20 20 20 20 e7 20 42 28 | 34 29 3d 31 33 31 20 3a |    . B(|4)=131 :|
|00002440| f2 6c 6d 34 0d 0f 32 18 | 20 20 20 20 e7 20 42 28 |.lm4..2.|    . B(|
|00002450| 35 29 3d 31 33 31 20 3a | f2 6c 6d 35 0d 0f 3c 18 |5)=131 :|.lm5..<.|
|00002460| 20 20 20 20 e7 20 42 28 | 36 29 3d 31 33 31 20 3a |    . B(|6)=131 :|
|00002470| f2 6c 6d 36 0d 0f 46 18 | 20 20 20 20 e7 20 42 28 |.lm6..F.|    . B(|
|00002480| 37 29 3d 31 33 31 20 3a | f2 6c 6d 37 0d 0f 50 18 |7)=131 :|.lm7..P.|
|00002490| 20 20 20 20 e7 20 42 28 | 38 29 3d 31 33 31 20 3a |    . B(|8)=131 :|
|000024a0| f2 6c 6d 38 0d 0f 5a 18 | 20 20 20 20 e7 20 42 28 |.lm8..Z.|    . B(|
|000024b0| 39 29 3d 31 33 31 20 3a | f2 6c 6d 39 0d 0f 64 1a |9)=131 :|.lm9..d.|
|000024c0| 20 20 20 20 e7 20 42 28 | 31 30 29 3d 31 33 31 20 |    . B(|10)=131 |
|000024d0| 3a f2 6c 6d 31 30 0d 0f | 6e 1a 20 20 20 20 e7 20 |:.lm10..|n.    . |
|000024e0| 42 28 31 31 29 3d 31 33 | 31 20 3a f2 6c 6d 31 31 |B(11)=13|1 :.lm11|
|000024f0| 0d 0f 78 1a 20 20 20 20 | e7 20 42 28 31 32 29 3d |..x.    |. B(12)=|
|00002500| 31 33 31 20 3a f2 6c 6d | 31 32 0d 0f 82 1a 20 20 |131 :.lm|12....  |
|00002510| 20 20 e7 20 42 28 31 33 | 29 3d 31 33 31 20 3a f2 |  . B(13|)=131 :.|
|00002520| 6c 6d 31 33 0d 0f 8c 18 | fd 20 42 28 31 34 29 3d |lm13....|. B(14)=|
|00002530| 31 33 31 20 80 20 42 55 | 54 25 3d 34 0d 0f 96 0a |131 . BU|T%=4....|
|00002540| 70 6f 6e 25 3d a3 0d 0f | a0 06 20 e1 0d 0f aa 04 |pon%=...|.. .....|
|00002550| 0d 0f b4 0a 20 dd f2 6c | 6d 31 0d 0f be 17 20 20 |.... ..l|m1....  |
|00002560| e7 20 42 55 54 25 3d 34 | 3a f2 70 72 69 6e 74 65 |. BUT%=4|:.printe|
|00002570| 72 0d 0f c8 2d 20 20 e7 | 20 42 55 54 25 3d 31 3a |r...-  .| BUT%=1:|
|00002580| f2 68 65 6c 70 28 22 3c | 4f 62 65 79 24 44 69 72 |.help("<|Obey$Dir|
|00002590| 3e 2e 48 45 4c 50 2e 50 | 52 49 4e 54 22 29 0d 0f |>.HELP.P|RINT")..|
|000025a0| d2 06 20 e1 0d 0f dc 04 | 0d 0f e6 0a 20 dd f2 6c |.. .....|.... ..l|
|000025b0| 6d 32 0d 0f f0 15 20 20 | e7 20 42 55 54 25 3d 34 |m2....  |. BUT%=4|
|000025c0| 3a f2 69 6e 64 69 76 0d | 0f fa 2d 20 20 e7 20 42 |:.indiv.|..-  . B|
|000025d0| 55 54 25 3d 31 3a f2 68 | 65 6c 70 28 22 3c 4f 62 |UT%=1:.h|elp("<Ob|
|000025e0| 65 79 24 44 69 72 3e 2e | 48 45 4c 50 2e 49 4e 44 |ey$Dir>.|HELP.IND|
|000025f0| 49 56 22 29 0d 10 04 06 | 20 e1 0d 10 0e 04 0d 10 |IV")....| .......|
|00002600| 18 0a 20 dd f2 6c 6d 33 | 0d 10 22 18 20 20 e7 20 |.. ..lm3|..".  . |
|00002610| 42 55 54 25 3d 34 3a f2 | 6c 69 73 74 66 69 6c 65 |BUT%=4:.|listfile|
|00002620| 0d 10 2c 2c 20 20 e7 20 | 42 55 54 25 3d 31 3a f2 |..,,  . |BUT%=1:.|
|00002630| 68 65 6c 70 28 22 3c 4f | 62 65 79 24 44 69 72 3e |help("<O|bey$Dir>|
|00002640| 2e 48 45 4c 50 2e 4c 41 | 4c 4c 22 29 0d 10 36 06 |.HELP.LA|LL")..6.|
|00002650| 20 e1 0d 10 40 04 0d 10 | 4a 0a 20 dd f2 6c 6d 34 | ...@...|J. ..lm4|
|00002660| 0d 10 54 16 20 20 e7 20 | 42 55 54 25 3d 34 3a f2 |..T.  . |BUT%=4:.|
|00002670| 6c 69 73 74 74 67 0d 10 | 5e 2b 20 20 e7 20 42 55 |listtg..|^+  . BU|
|00002680| 54 25 3d 31 3a f2 68 65 | 6c 70 28 22 3c 4f 62 65 |T%=1:.he|lp("<Obe|
|00002690| 79 24 44 69 72 3e 2e 48 | 45 4c 50 2e 4c 54 47 22 |y$Dir>.H|ELP.LTG"|
|000026a0| 29 0d 10 68 06 20 e1 0d | 10 72 04 0d 10 7c 0a 20 |)..h. ..|.r...|. |
|000026b0| dd f2 6c 6d 35 0d 10 86 | 17 20 20 e7 20 42 55 54 |..lm5...|.  . BUT|
|000026c0| 25 3d 34 3a f2 6c 69 73 | 74 73 65 74 0d 10 90 2c |%=4:.lis|tset...,|
|000026d0| 20 20 e7 20 42 55 54 25 | 3d 31 3a f2 68 65 6c 70 |  . BUT%|=1:.help|
|000026e0| 28 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 48 45 4c |("<Obey$|Dir>.HEL|
|000026f0| 50 2e 4c 53 45 54 22 29 | 0d 10 9a 06 20 e1 0d 10 |P.LSET")|.... ...|
|00002700| a4 04 0d 10 ae 0a 20 dd | f2 6c 6d 36 0d 10 b8 1b |...... .|.lm6....|
|00002710| 20 20 e7 20 42 55 54 25 | 3d 34 3a f2 70 61 67 65 |  . BUT%|=4:.page|
|00002720| 62 79 67 72 6f 75 70 0d | 10 c2 2c 20 20 e7 20 42 |bygroup.|..,  . B|
|00002730| 55 54 25 3d 31 3a f2 68 | 65 6c 70 28 22 3c 4f 62 |UT%=1:.h|elp("<Ob|
|00002740| 65 79 24 44 69 72 3e 2e | 48 45 4c 50 2e 50 41 47 |ey$Dir>.|HELP.PAG|
|00002750| 45 22 29 0d 10 cc 10 e3 | 20 52 25 3d 20 31 20 b8 |E").....| R%= 1 .|
|00002760| 20 31 31 0d 10 d6 0c 20 | 42 28 52 25 29 3d 30 0d | 11.... |B(R%)=0.|
|00002770| 10 e0 05 ed 0d 10 ea 06 | 20 e1 0d 10 f4 04 0d 10 |........| .......|
|00002780| fe 0a 20 dd f2 6c 6d 37 | 0d 11 08 17 20 20 e7 20 |.. ..lm7|....  . |
|00002790| 42 55 54 25 3d 34 3a f2 | 6c 69 73 74 61 62 73 0d |BUT%=4:.|listabs.|
|000027a0| 11 12 2c 20 20 e7 20 42 | 55 54 25 3d 31 3a f2 68 |..,  . B|UT%=1:.h|
|000027b0| 65 6c 70 28 22 3c 4f 62 | 65 79 24 44 69 72 3e 2e |elp("<Ob|ey$Dir>.|
|000027c0| 48 45 4c 50 2e 4c 41 42 | 53 22 29 0d 11 1c 06 20 |HELP.LAB|S").... |
|000027d0| e1 0d 11 26 04 0d 11 30 | 0a 20 dd f2 6c 6d 38 0d |...&...0|. ..lm8.|
|000027e0| 11 3a 18 20 20 e7 20 42 | 55 54 25 3d 34 3a f2 6c |.:.  . B|UT%=4:.l|
|000027f0| 69 73 74 70 72 65 73 0d | 11 44 2d 20 20 e7 20 42 |istpres.|.D-  . B|
|00002800| 55 54 25 3d 31 3a f2 68 | 65 6c 70 28 22 3c 4f 62 |UT%=1:.h|elp("<Ob|
|00002810| 65 79 24 44 69 72 3e 2e | 48 45 4c 50 2e 4c 50 52 |ey$Dir>.|HELP.LPR|
|00002820| 45 53 22 29 0d 11 4e 06 | 20 e1 0d 11 58 04 0d 11 |ES")..N.| ...X...|
|00002830| 62 0a 20 dd f2 6c 6d 39 | 0d 11 6c 19 20 20 e7 20 |b. ..lm9|..l.  . |
|00002840| 42 55 54 25 3d 34 3a f2 | 6c 69 73 74 6e 6f 74 65 |BUT%=4:.|listnote|
|00002850| 73 0d 11 76 2d 20 20 e7 | 20 42 55 54 25 3d 31 3a |s..v-  .| BUT%=1:|
|00002860| f2 68 65 6c 70 28 22 3c | 4f 62 65 79 24 44 69 72 |.help("<|Obey$Dir|
|00002870| 3e 2e 48 45 4c 50 2e 4c | 4e 4f 54 45 22 29 0d 11 |>.HELP.L|NOTE")..|
|00002880| 80 06 20 e1 0d 11 8a 04 | 0d 11 94 0b 20 dd f2 6c |.. .....|.... ..l|
|00002890| 6d 31 30 0d 11 9e 17 20 | 20 e7 20 42 55 54 25 3d |m10.... | . BUT%=|
|000028a0| 34 3a f2 6c 69 73 74 69 | 64 73 0d 11 a8 2b 20 20 |4:.listi|ds...+  |
|000028b0| e7 20 42 55 54 25 3d 31 | 3a f2 68 65 6c 70 28 22 |. BUT%=1|:.help("|
|000028c0| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 48 45 4c 50 2e |<Obey$Di|r>.HELP.|
|000028d0| 4c 49 44 22 29 0d 11 b2 | 06 20 e1 0d 11 bc 04 0d |LID")...|. ......|
|000028e0| 11 c6 0b 20 dd f2 6c 6d | 31 31 0d 11 d0 1a 20 20 |... ..lm|11....  |
|000028f0| e7 20 42 55 54 25 3d 34 | 3a f2 6c 69 73 74 6c 6f |. BUT%=4|:.listlo|
|00002900| 67 6f 75 74 0d 11 da 2b | 20 20 e7 20 42 55 54 25 |gout...+|  . BUT%|
|00002910| 3d 31 3a f2 68 65 6c 70 | 28 22 3c 4f 62 65 79 24 |=1:.help|("<Obey$|
|00002920| 44 69 72 3e 2e 48 45 4c | 50 2e 4c 4c 4f 22 29 0d |Dir>.HEL|P.LLO").|
|00002930| 11 e4 06 20 e1 0d 11 ee | 04 0d 11 f8 0b 20 dd f2 |... ....|..... ..|
|00002940| 6c 6d 31 32 0d 12 02 19 | 20 20 e7 20 42 55 54 25 |lm12....|  . BUT%|
|00002950| 3d 34 3a f2 6c 69 73 74 | 6c 6f 67 69 6e 0d 12 0c |=4:.list|login...|
|00002960| 2b 20 20 e7 20 42 55 54 | 25 3d 31 3a f2 68 65 6c |+  . BUT|%=1:.hel|
|00002970| 70 28 22 3c 4f 62 65 79 | 24 44 69 72 3e 2e 48 45 |p("<Obey|$Dir>.HE|
|00002980| 4c 50 2e 4c 4c 49 22 29 | 0d 12 16 06 20 e1 0d 12 |LP.LLI")|.... ...|
|00002990| 20 04 0d 12 2a 0b 20 dd | f2 6c 6d 31 33 0d 12 34 | ...*. .|.lm13..4|
|000029a0| 18 20 20 e7 20 42 55 54 | 25 3d 34 3a f2 6c 69 73 |.  . BUT|%=4:.lis|
|000029b0| 74 6c 61 74 65 0d 12 3e | 2b 20 20 e7 20 42 55 54 |tlate..>|+  . BUT|
|000029c0| 25 3d 31 3a f2 68 65 6c | 70 28 22 3c 4f 62 65 79 |%=1:.hel|p("<Obey|
|000029d0| 24 44 69 72 3e 2e 48 45 | 4c 50 2e 4c 4c 4c 22 29 |$Dir>.HE|LP.LLL")|
|000029e0| 0d 12 48 06 20 e1 0d 12 | 52 04 0d 12 5c 11 20 dd |..H. ...|R...\. .|
|000029f0| f2 6c 69 73 74 6c 6f 67 | 6f 75 74 0d 12 66 06 20 |.listlog|out..f. |
|00002a00| db 0d 12 70 09 20 ef 20 | 31 34 0d 12 7a 1a 20 20 |...p. . |14..z.  |
|00002a10| 2a 54 59 50 45 20 3c 4f | 62 65 79 24 44 69 72 3e |*TYPE <O|bey$Dir>|
|00002a20| 2e 4f 55 54 0d 12 84 09 | 20 20 f1 3a f1 0d 12 8e |.OUT....|  .:....|
|00002a30| 09 f2 77 61 69 74 0d 12 | 98 05 e1 0d 12 a2 04 0d |..wait..|........|
|00002a40| 12 ac 10 20 dd f2 6c 69 | 73 74 6c 6f 67 69 6e 0d |... ..li|stlogin.|
|00002a50| 12 b6 06 20 db 0d 12 c0 | 09 20 ef 20 31 34 0d 12 |... ....|. . 14..|
|00002a60| ca 19 20 20 2a 54 59 50 | 45 20 3c 4f 62 65 79 24 |..  *TYP|E <Obey$|
|00002a70| 44 69 72 3e 2e 49 4e 0d | 12 d4 09 20 20 f1 3a f1 |Dir>.IN.|...  .:.|
|00002a80| 0d 12 de 09 f2 77 61 69 | 74 0d 12 e8 05 e1 0d 12 |.....wai|t.......|
|00002a90| f2 04 0d 12 fc 0f 20 dd | f2 6c 69 73 74 6c 61 74 |...... .|.listlat|
|00002aa0| 65 0d 13 06 06 20 db 0d | 13 10 09 20 ef 20 31 34 |e.... ..|... . 14|
|00002ab0| 0d 13 1a 1b 20 20 2a 54 | 59 50 45 20 3c 4f 62 65 |....  *T|YPE <Obe|
|00002ac0| 79 24 44 69 72 3e 2e 4c | 41 54 45 0d 13 24 09 20 |y$Dir>.L|ATE..$. |
|00002ad0| 20 f1 3a f1 0d 13 2e 09 | f2 77 61 69 74 0d 13 38 | .:.....|.wait..8|
|00002ae0| 05 e1 0d 13 42 04 0d 13 | 4c 0f 20 dd f2 70 61 73 |....B...|L. ..pas|
|00002af0| 73 77 6f 72 64 0d 13 56 | 04 0d 13 60 2c 20 20 e8 |sword..V|...`,  .|
|00002b00| 22 45 4e 54 45 52 20 50 | 41 53 53 57 4f 52 44 20 |"ENTER P|ASSWORD |
|00002b10| 4f 52 20 50 52 45 53 53 | 20 45 53 43 41 50 45 22 |OR PRESS| ESCAPE"|
|00002b20| 3b 4e 56 51 24 0d 13 6a | 15 20 20 f5 3a fd 20 4e |;NVQ$..j|.  .:. N|
|00002b30| 56 51 24 3d 70 61 73 73 | 77 24 0d 13 74 04 0d 13 |VQ$=pass|w$..t...|
|00002b40| 7e 06 20 e1 0d 13 88 04 | 0d 13 92 44 20 dd f2 61 |~. .....|...D ..a|
|00002b50| 6d 65 6e 64 6d 65 6e 75 | 20 20 20 20 20 20 20 20 |mendmenu|        |
|00002b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b70| 20 f4 3a 20 4d 65 6e 75 | 20 66 6f 72 20 66 69 6c | .: Menu| for fil|
|00002b80| 65 20 61 6d 65 6e 64 6d | 65 6e 74 73 0d 13 9c 0e |e amendm|ents....|
|00002b90| 20 f2 70 61 73 73 77 6f | 72 64 0d 13 a6 06 20 f5 | .passwo|rd.... .|
|00002ba0| 0d 13 b0 09 20 eb 20 31 | 32 0d 13 ba 12 20 20 f2 |.... . 1|2....  .|
|00002bb0| 64 65 6c 61 79 28 32 30 | 30 30 29 0d 13 c4 22 20 |delay(20|00)..." |
|00002bc0| 20 f2 68 65 61 64 65 72 | 28 22 41 6d 65 6e 64 6d | .header|("Amendm|
|00002bd0| 65 6e 74 20 6f 70 74 69 | 6f 6e 73 22 29 0d 13 ce |ent opti|ons")...|
|00002be0| 1d 20 20 20 f2 63 6f 6e | 74 6d 6f 75 73 65 28 41 |.   .con|tmouse(A|
|00002bf0| 4d 24 28 29 2c 36 2c 31 | 38 29 0d 13 d8 17 20 20 |M$(),6,1|8)....  |
|00002c00| 20 20 e7 20 42 28 31 29 | 3d 31 33 31 20 f2 61 6d |  . B(1)|=131 .am|
|00002c10| 31 0d 13 e2 17 20 20 20 | 20 e7 20 42 28 32 29 3d |1....   | . B(2)=|
|00002c20| 31 33 31 20 f2 61 6d 32 | 0d 13 ec 17 20 20 20 20 |131 .am2|....    |
|00002c30| e7 20 42 28 33 29 3d 31 | 33 31 20 f2 61 6d 33 0d |. B(3)=1|31 .am3.|
|00002c40| 13 f6 17 20 20 20 20 e7 | 20 42 28 34 29 3d 31 33 |...    .| B(4)=13|
|00002c50| 31 20 f2 61 6d 34 0d 14 | 00 17 20 20 20 20 e7 20 |1 .am4..|..    . |
|00002c60| 42 28 35 29 3d 31 33 31 | 20 f2 61 6d 35 0d 14 0a |B(5)=131| .am5...|
|00002c70| 21 20 20 fd 20 42 28 36 | 29 3d 31 33 31 20 80 20 |!  . B(6|)=131 . |
|00002c80| 42 55 54 25 3d 34 20 84 | 20 65 78 69 74 25 0d 14 |BUT%=4 .| exit%..|
|00002c90| 14 06 20 e1 0d 14 1e 04 | 0d 14 28 0a 20 dd f2 61 |.. .....|..(. ..a|
|00002ca0| 6d 31 0d 14 32 21 20 20 | e7 20 42 55 54 25 3d 34 |m1..2!  |. BUT%=4|
|00002cb0| 3a f2 61 64 64 72 65 63 | 6f 72 64 3a 65 78 69 74 |:.addrec|ord:exit|
|00002cc0| 25 3d b9 0d 14 3c 2e 20 | 20 e7 20 42 55 54 25 3d |%=...<. | . BUT%=|
|00002cd0| 31 3a f2 68 65 6c 70 28 | 22 3c 4f 62 65 79 24 44 |1:.help(|"<Obey$D|
|00002ce0| 69 72 3e 2e 48 45 4c 50 | 2e 41 44 44 52 45 43 22 |ir>.HELP|.ADDREC"|
|00002cf0| 29 0d 14 46 06 20 e1 0d | 14 50 04 0d 14 5a 0a 20 |)..F. ..|.P...Z. |
|00002d00| dd f2 61 6d 32 0d 14 64 | 22 20 20 e7 20 42 55 54 |..am2..d|"  . BUT|
|00002d10| 25 3d 34 20 3a f2 64 65 | 6c 65 74 65 72 65 63 3a |%=4 :.de|leterec:|
|00002d20| 65 78 69 74 25 3d b9 0d | 14 6e 2e 20 20 e7 20 42 |exit%=..|.n.  . B|
|00002d30| 55 54 25 3d 31 3a f2 68 | 65 6c 70 28 22 3c 4f 62 |UT%=1:.h|elp("<Ob|
|00002d40| 65 79 24 44 69 72 3e 2e | 48 45 4c 50 2e 44 45 4c |ey$Dir>.|HELP.DEL|
|00002d50| 52 45 43 22 29 0d 14 78 | 06 20 e1 0d 14 82 04 0d |REC")..x|. ......|
|00002d60| 14 8c 0a 20 dd f2 61 6d | 33 0d 14 96 21 20 20 e7 |... ..am|3...!  .|
|00002d70| 20 42 55 54 25 3d 34 3a | f2 73 65 61 72 63 68 72 | BUT%=4:|.searchr|
|00002d80| 65 70 3a 65 78 69 74 25 | 3d b9 0d 14 a0 33 20 20 |ep:exit%|=....3  |
|00002d90| e7 20 42 55 54 25 3d 31 | 20 8c 3a f2 68 65 6c 70 |. BUT%=1| .:.help|
|00002da0| 28 22 3c 4f 62 65 79 24 | 44 69 72 3e 2e 48 45 4c |("<Obey$|Dir>.HEL|
|00002db0| 50 2e 53 45 41 52 43 48 | 52 45 50 22 29 0d 14 aa |P.SEARCH|REP")...|
|00002dc0| 06 20 e1 0d 14 b4 04 0d | 14 be 0a 20 dd f2 61 6d |. ......|... ..am|
|00002dd0| 34 0d 14 c8 1f 20 20 e7 | 20 42 55 54 25 3d 34 20 |4....  .| BUT%=4 |
|00002de0| 3a f2 73 77 6f 70 74 67 | 3a 65 78 69 74 25 3d b9 |:.swoptg|:exit%=.|
|00002df0| 0d 14 d2 2f 20 20 e7 20 | 42 55 54 25 3d 31 20 3a |.../  . |BUT%=1 :|
|00002e00| f2 68 65 6c 70 28 22 3c | 4f 62 65 79 24 44 69 72 |.help("<|Obey$Dir|
|00002e10| 3e 2e 48 45 4c 50 2e 53 | 57 4f 50 54 47 22 29 0d |>.HELP.S|WOPTG").|
|00002e20| 14 dc 06 20 e1 0d 14 e6 | 04 0d 14 f0 0a 20 dd f2 |... ....|..... ..|
|00002e30| 61 6d 35 0d 14 fa 23 20 | 20 e7 20 42 55 54 25 3d |am5...# | . BUT%=|
|00002e40| 34 20 3a f2 63 68 61 6e | 67 65 6e 61 6d 65 3a 65 |4 :.chan|gename:e|
|00002e50| 78 69 74 25 3d b9 0d 15 | 04 31 20 20 e7 20 42 55 |xit%=...|.1  . BU|
|00002e60| 54 25 3d 31 20 3a f2 68 | 65 6c 70 28 22 3c 4f 62 |T%=1 :.h|elp("<Ob|
|00002e70| 65 79 24 44 69 72 3e 2e | 48 45 4c 50 2e 43 48 41 |ey$Dir>.|HELP.CHA|
|00002e80| 4e 47 4e 41 4d 22 29 0d | 15 0e 06 20 e1 0d 15 18 |NGNAM").|... ....|
|00002e90| 04 0d 15 22 10 20 dd f2 | 67 72 61 70 68 6d 65 6e |...". ..|graphmen|
|00002ea0| 75 0d 15 2c 0f 20 f2 74 | 75 74 67 70 73 74 61 74 |u..,. .t|utgpstat|
|00002eb0| 0d 15 36 06 20 f5 0d 15 | 40 09 20 eb 20 31 32 0d |..6. ...|@. . 12.|
|00002ec0| 15 4a 12 20 20 f2 64 65 | 6c 61 79 28 32 30 30 30 |.J.  .de|lay(2000|
|00002ed0| 29 0d 15 54 1e 20 20 f2 | 68 65 61 64 65 72 28 22 |)..T.  .|header("|
|00002ee0| 47 72 61 70 68 20 6f 70 | 74 69 6f 6e 73 22 29 0d |Graph op|tions").|
|00002ef0| 15 5e 1d 20 20 20 f2 63 | 6f 6e 74 6d 6f 75 73 65 |.^.   .c|ontmouse|
|00002f00| 28 47 4d 24 28 29 2c 37 | 2c 32 35 29 0d 15 68 16 |(GM$(),7|,25)..h.|
|00002f10| 20 20 20 20 e7 20 42 28 | 31 29 3d 31 33 31 20 f2 |    . B(|1)=131 .|
|00002f20| 67 31 0d 15 72 16 20 20 | 20 20 e7 20 42 28 32 29 |g1..r.  |  . B(2)|
|00002f30| 3d 31 33 31 20 f2 67 32 | 0d 15 7c 16 20 20 20 20 |=131 .g2|..|.    |
|00002f40| e7 20 42 28 33 29 3d 31 | 33 31 20 f2 67 33 0d 15 |. B(3)=1|31 .g3..|
|00002f50| 86 16 20 20 20 20 e7 20 | 42 28 34 29 3d 31 33 31 |..    . |B(4)=131|
|00002f60| 20 f2 67 34 0d 15 90 16 | 20 20 20 20 e7 20 42 28 | .g4....|    . B(|
|00002f70| 35 29 3d 31 33 31 20 f2 | 67 35 0d 15 9a 16 20 20 |5)=131 .|g5....  |
|00002f80| 20 20 e7 20 42 28 36 29 | 3d 31 33 31 20 f2 67 36 |  . B(6)|=131 .g6|
|00002f90| 0d 15 a4 18 20 fd 20 42 | 28 37 29 3d 31 33 31 20 |.... . B|(7)=131 |
|00002fa0| 80 20 42 55 54 25 3d 34 | 0d 15 ae 06 20 e1 0d 15 |. BUT%=4|.... ...|
|00002fb0| b8 04 0d 15 c2 09 20 dd | f2 67 31 0d 15 cc 0e 20 |...... .|.g1.... |
|00002fc0| c8 8e 20 42 55 54 25 20 | ca 0d 15 d6 18 20 20 c9 |.. BUT% |.....  .|
|00002fd0| 20 34 3a f2 61 74 74 65 | 6e 64 67 72 61 70 68 3a | 4:.atte|ndgraph:|
|00002fe0| db 0d 15 e0 29 20 20 c9 | 20 31 3a 3a f2 68 65 6c |....)  .| 1::.hel|
|00002ff0| 70 28 22 3c 4f 62 65 79 | 24 44 69 72 3e 2e 48 45 |p("<Obey|$Dir>.HE|
|00003000| 4c 50 2e 41 54 54 47 52 | 22 29 0d 15 ea 06 20 cb |LP.ATTGR|").... .|
|00003010| 0d 15 f4 06 20 e1 0d 15 | fe 04 0d 16 08 09 20 dd |.... ...|...... .|
|00003020| f2 67 32 0d 16 12 1b 20 | 20 e7 20 42 55 54 25 3d |.g2.... | . BUT%=|
|00003030| 34 20 3a f2 61 62 73 67 | 72 61 70 68 3a db 0d 16 |4 :.absg|raph:...|
|00003040| 1c 2e 20 20 e7 20 42 55 | 54 25 3d 31 20 3a f2 68 |..  . BU|T%=1 :.h|
|00003050| 65 6c 70 28 22 3c 4f 62 | 65 79 24 44 69 72 3e 2e |elp("<Ob|ey$Dir>.|
|00003060| 48 45 4c 50 2e 41 42 53 | 47 52 22 29 0d 16 26 06 |HELP.ABS|GR")..&.|
|00003070| 20 e1 0d 16 30 04 0d 16 | 3a 09 20 dd f2 67 33 0d | ...0...|:. ..g3.|
|00003080| 16 44 1b 20 20 e7 20 42 | 55 54 25 3d 34 20 3a f2 |.D.  . B|UT%=4 :.|
|00003090| 6c 74 65 67 72 61 70 68 | 3a db 0d 16 4e 2e 20 20 |ltegraph|:...N.  |
|000030a0| e7 20 42 55 54 25 3d 31 | 20 3a f2 68 65 6c 70 28 |. BUT%=1| :.help(|
|000030b0| 22 3c 4f 62 65 79 24 44 | 69 72 3e 2e 48 45 4c 50 |"<Obey$D|ir>.HELP|
|000030c0| 2e 4c 54 45 47 52 22 29 | 0d 16 58 06 20 e1 0d 16 |.LTEGR")|..X. ...|
|000030d0| 62 04 0d 16 6c 09 20 dd | f2 67 34 0d 16 76 1d 20 |b...l. .|.g4..v. |
|000030e0| 20 e7 20 42 55 54 25 3d | 34 20 3a f2 61 74 74 6f | . BUT%=|4 :.atto|
|000030f0| 74 67 72 61 70 68 3a db | 0d 16 80 2f 20 20 e7 20 |tgraph:.|.../  . |
|00003100| 42 55 54 25 3d 31 20 3a | f2 68 65 6c 70 28 22 3c |BUT%=1 :|.help("<|
|00003110| 4f 62 65 79 24 44 69 72 | 3e 2e 48 45 4c 50 2e 41 |Obey$Dir|>.HELP.A|
|00003120| 54 54 54 47 52 22 29 0d | 16 8a 06 20 e1 0d 16 94 |TTTGR").|... ....|
|00003130| 04 0d 16 9e 09 20 dd f2 | 67 35 0d 16 a8 1e 20 20 |..... ..|g5....  |
|00003140| e7 20 42 55 54 25 3d 34 | 20 3a f2 61 62 73 74 6f |. BUT%=4| :.absto|
|00003150| 74 67 72 61 70 68 3a db | 0d 16 b2 2f 20 20 e7 20 |tgraph:.|.../  . |
|00003160| 42 55 54 25 3d 31 20 3a | f2 68 65 6c 70 28 22 3c |BUT%=1 :|.help("<|
|00003170| 4f 62 65 79 24 44 69 72 | 3e 2e 48 45 4c 50 2e 41 |Obey$Dir|>.HELP.A|
|00003180| 42 53 54 47 52 22 29 0d | 16 bc 06 20 e1 0d 16 c6 |BSTGR").|... ....|
|00003190| 04 0d 16 d0 09 20 dd f2 | 67 36 0d 16 da 1e 20 20 |..... ..|g6....  |
|000031a0| e7 20 42 55 54 25 3d 34 | 20 3a f2 6c 74 65 74 6f |. BUT%=4| :.lteto|
|000031b0| 74 67 72 61 70 68 3a db | 0d 16 e4 2f 20 20 e7 20 |tgraph:.|.../  . |
|000031c0| 42 55 54 25 3d 31 20 3a | f2 68 65 6c 70 28 22 3c |BUT%=1 :|.help("<|
|000031d0| 4f 62 65 79 24 44 69 72 | 3e 2e 48 45 4c 50 2e 4c |Obey$Dir|>.HELP.L|
|000031e0| 54 45 54 47 52 22 29 0d | 16 ee 06 20 e1 0d 16 f8 |TETGR").|... ....|
|000031f0| 04 0d 17 02 0d dd f2 6f | 73 79 73 74 65 6d 0d 17 |.......o|system..|
|00003200| 0c 05 db 0d 17 16 0b 63 | 6f 6d 24 3d 22 22 0d 17 |.......c|om$=""..|
|00003210| 20 16 20 20 c8 95 20 63 | 6f 6d 24 20 3c 3e 20 22 | .  .. c|om$ <> "|
|00003220| 45 4e 44 22 0d 17 2a 3f | f1 22 4f 70 65 72 61 74 |END"..*?|."Operat|
|00003230| 69 6e 67 20 73 79 73 74 | 65 6d 20 63 6f 6d 6d 61 |ing syst|em comma|
|00003240| 6e 64 20 65 67 20 2a 44 | 52 49 56 45 20 34 20 2d |nd eg *D|RIVE 4 -|
|00003250| 20 45 53 43 41 50 45 20 | 74 6f 20 66 69 6e 69 73 | ESCAPE |to finis|
|00003260| 68 20 22 0d 17 34 09 f1 | 22 2a 22 3b 0d 17 3e 0b |h "..4..|"*";..>.|
|00003270| e8 22 22 63 6f 6d 24 0d | 17 48 0d 20 20 ff 28 63 |.""com$.|.H.  .(c|
|00003280| 6f 6d 24 29 0d 17 52 05 | ce 0d 17 5c 05 e1 0d 17 |om$)..R.|...\....|
|00003290| 66 04 0d 17 70 0b dd f2 | 65 72 72 6f 72 0d 17 7a |f...p...|error..z|
|000032a0| 0a 2a 46 58 34 2c 30 0d | 17 84 0e 6d 25 3d 6d 73 |.*FX4,0.|...m%=ms|
|000032b0| 74 6f 72 65 25 0d 17 8e | 05 db 0d 17 98 3b 20 d9 |tore%...|.....; .|
|000032c0| 23 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#0      |        |
|000032d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 |        |      :.|
|000032e0| 20 43 6c 6f 73 65 20 61 | 6e 79 20 6f 70 65 6e 20 | Close a|ny open |
|000032f0| 66 69 6c 65 73 0d 17 a2 | 3d 20 65 78 69 74 25 3d |files...|= exit%=|
|00003300| a3 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003310| 20 20 20 20 20 20 20 20 | 20 3a f4 20 66 6c 61 67 |        | :. flag|
|00003320| 20 74 6f 20 65 78 69 74 | 20 6d 61 69 6e 20 70 72 | to exit| main pr|
|00003330| 6f 67 0d 17 ac 3f 20 71 | 75 69 74 25 3d a3 20 20 |og...? q|uit%=.  |
|00003340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003350| 20 20 20 20 20 20 3a f4 | 20 66 6c 61 67 20 66 6f |      :.| flag fo|
|00003360| 72 20 65 6e 64 20 65 64 | 69 74 20 73 63 72 65 65 |r end ed|it scree|
|00003370| 6e 0d 17 b6 37 20 70 6f | 6e 25 3d a3 20 20 20 20 |n...7 po|n%=.    |
|00003380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003390| 20 20 20 20 20 3a f4 20 | 66 6c 61 67 20 66 6f 72 |     :. |flag for|
|000033a0| 20 70 72 69 6e 74 65 72 | 0d 17 c0 3f 20 73 6b 69 | printer|...? ski|
|000033b0| 70 25 3d a3 20 20 20 20 | 20 20 20 20 20 20 20 20 |p%=.    |        |
|000033c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 66 |        |    :. f|
|000033d0| 6c 61 67 20 74 6f 20 73 | 6b 69 70 20 66 69 6e 64 |lag to s|kip find|
|000033e0| 20 72 65 63 6f 72 64 0d | 17 ca 07 20 ef 33 0d 17 | record.|... .3..|
|000033f0| d4 0f e7 20 9f 20 3d 20 | 32 32 32 20 8c 0d 17 de |... . = |222 ....|
|00003400| 06 20 db 0d 17 e8 3d 20 | f1 22 59 6f 75 20 61 72 |. ....= |."You ar|
|00003410| 65 20 74 72 79 69 6e 67 | 20 74 6f 20 61 63 63 65 |e trying| to acce|
|00003420| 73 73 20 61 20 66 69 6c | 65 20 77 68 69 63 68 20 |ss a fil|e which |
|00003430| 63 61 6e 27 74 20 62 65 | 20 66 6f 75 6e 64 21 22 |can't be| found!"|
|00003440| 0d 17 f2 40 20 f1 22 50 | 72 65 73 73 20 45 53 43 |...@ ."P|ress ESC|
|00003450| 41 50 45 20 61 6e 64 20 | 74 72 79 20 61 67 61 69 |APE and |try agai|
|00003460| 6e 2e 20 49 66 20 74 68 | 65 20 65 72 72 6f 72 20 |n. If th|e error |
|00003470| 70 65 72 73 69 73 74 73 | 2c 20 69 74 20 69 73 22 |persists|, it is"|
|00003480| 0d 17 fc 46 20 f1 22 70 | 6f 73 73 69 62 6c 65 20 |...F ."p|ossible |
|00003490| 74 68 61 74 20 61 20 66 | 69 6c 65 20 68 61 73 20 |that a f|ile has |
|000034a0| 62 65 65 6e 20 61 63 63 | 69 64 65 6e 74 6c 79 20 |been acc|idently |
|000034b0| 64 65 6c 65 74 65 64 2e | 20 54 72 79 20 63 68 65 |deleted.| Try che|
|000034c0| 63 6b 69 6e 67 22 0d 18 | 06 42 20 f1 22 61 67 61 |cking"..|.B ."aga|
|000034d0| 69 6e 73 74 20 74 68 65 | 20 62 61 63 6b 75 70 20 |inst the| backup |
|000034e0| 74 6f 20 73 65 65 20 69 | 66 20 61 6e 79 74 68 69 |to see i|f anythi|
|000034f0| 6e 67 20 69 73 20 6d 69 | 73 73 69 6e 67 2e 20 49 |ng is mi|ssing. I|
|00003500| 66 20 74 68 65 72 65 22 | 0d 18 10 30 20 f1 22 69 |f there"|...0 ."i|
|00003510| 73 20 73 74 69 6c 6c 20 | 61 20 70 72 6f 62 6c 65 |s still |a proble|
|00003520| 6d 20 72 69 6e 67 20 6d | 65 20 6f 6e 20 30 38 32 |m ring m|e on 082|
|00003530| 37 20 36 32 30 31 38 22 | 0d 18 1a 0e 20 f2 77 61 |7 62018"|.... .wa|
|00003540| 69 74 3a 54 3d a5 0d 18 | 24 06 20 cd 0d 18 2e 2a |it:T=...|$. ....*|
|00003550| e7 20 9f 3c 3e 31 37 20 | 80 20 9f 3c 3e 32 35 34 |. .<>17 |. .<>254|
|00003560| 20 80 20 9f 3c 3e 32 32 | 32 20 80 20 9f 3c 3e 36 | . .<>22|2 . .<>6|
|00003570| 37 37 37 38 20 8c 0d 18 | 38 19 20 20 f6 3a f1 20 |7778 ...|8.  .:. |
|00003580| 9f 3b 22 20 61 74 20 6c | 69 6e 65 20 22 3b 9e 0d |.;" at l|ine ";..|
|00003590| 18 42 39 20 20 f1 22 54 | 68 65 20 70 72 6f 67 72 |.B9  ."T|he progr|
|000035a0| 61 6d 6d 65 72 20 6f 66 | 66 65 72 73 20 68 75 6d |ammer of|fers hum|
|000035b0| 62 6c 65 20 61 70 6f 6c | 6f 67 69 65 73 20 66 6f |ble apol|ogies fo|
|000035c0| 72 20 74 68 69 73 2e 22 | 0d 18 4c 2b 20 20 f1 22 |r this."|..L+  ."|
|000035d0| 50 6c 65 61 73 65 20 72 | 69 6e 67 20 30 38 32 37 |Please r|ing 0827|
|000035e0| 20 36 32 30 31 38 20 66 | 6f 72 20 61 64 76 69 63 | 62018 f|or advic|
|000035f0| 65 2e 22 0d 18 56 0b 20 | 20 f2 77 61 69 74 0d 18 |e."..V. | .wait..|
|00003600| 60 09 20 20 d9 23 30 0d | 18 6a 05 cd 0d 18 74 05 |`.  .#0.|.j....t.|
|00003610| e1 0d 18 7e 04 0d 18 88 | 0d dd f2 6d 65 73 73 61 |...~....|...messa|
|00003620| 67 65 0d 18 92 06 eb 37 | 0d 18 9c 2a f1 22 54 68 |ge.....7|...*."Th|
|00003630| 65 20 77 61 79 20 74 68 | 65 20 70 72 6f 67 72 61 |e way th|e progra|
|00003640| 6d 20 69 73 20 63 6f 6e | 73 74 72 75 63 74 65 64 |m is con|structed|
|00003650| 2c 22 0d 18 a6 27 f1 22 | 69 74 20 64 6f 65 73 20 |,"...'."|it does |
|00003660| 6e 6f 74 20 6f 70 65 72 | 61 74 65 20 69 6e 20 41 |not oper|ate in A|
|00003670| 75 67 75 73 74 20 61 73 | 22 0d 18 b0 29 f1 22 73 |ugust as|"...)."s|
|00003680| 63 68 6f 6f 6c 73 20 61 | 72 65 20 6f 6e 20 68 6f |chools a|re on ho|
|00003690| 6c 69 64 61 79 20 64 75 | 72 69 6e 67 20 74 68 69 |liday du|ring thi|
|000036a0| 73 22 0d 18 ba 29 f1 22 | 6d 6f 6e 74 68 2e 20 48 |s"...)."|month. H|
|000036b0| 6f 77 65 76 65 72 2c 20 | 69 66 20 79 6f 75 20 77 |owever, |if you w|
|000036c0| 61 6e 74 20 74 6f 20 73 | 65 74 22 0d 18 c4 26 f1 |ant to s|et"...&.|
|000036d0| 22 75 70 20 61 20 72 65 | 67 69 73 74 65 72 20 69 |"up a re|gister i|
|000036e0| 6e 20 41 75 67 75 73 74 | 20 66 6f 72 20 74 68 65 |n August| for the|
|000036f0| 22 0d 18 ce 26 f1 22 63 | 6f 6d 69 6e 67 20 79 65 |"...&."c|oming ye|
|00003700| 61 72 2c 20 79 6f 75 20 | 63 61 6e 20 62 75 74 20 |ar, you |can but |
|00003710| 64 6f 20 6e 6f 74 22 0d | 18 d8 29 f1 22 61 74 74 |do not".|..)."att|
|00003720| 65 6d 70 74 20 74 6f 20 | 75 73 65 20 6f 74 68 65 |empt to |use othe|
|00003730| 72 20 66 61 63 69 6c 69 | 74 69 65 73 20 6f 72 22 |r facili|ties or"|
|00003740| 0d 18 e2 29 f1 22 79 6f | 75 20 77 69 6c 6c 20 67 |...)."yo|u will g|
|00003750| 65 74 20 73 6f 6d 65 20 | 73 74 72 61 6e 67 65 20 |et some |strange |
|00003760| 65 66 66 65 63 74 73 2e | 22 0d 18 ec 05 f1 0d 18 |effects.|".......|
|00003770| f6 09 f2 77 61 69 74 0d | 19 00 05 e1 0d 19 0a 04 |...wait.|........|
|00003780| 0d 19 14 3a dd f2 77 68 | 69 63 68 6d 6f 6e 74 68 |...:..wh|ichmonth|
|00003790| 20 20 20 20 3a f4 20 74 | 61 6b 65 20 6e 6f 74 65 |    :. t|ake note|
|000037a0| 20 6f 66 20 63 75 72 72 | 65 6e 74 20 74 65 72 6d | of curr|ent term|
|000037b0| 20 61 6e 64 20 6d 6f 6e | 74 68 0d 19 1e 1e e7 20 | and mon|th..... |
|000037c0| 63 75 72 6d 6f 6e 24 3d | 22 41 75 67 22 20 8c 20 |curmon$=|"Aug" . |
|000037d0| f2 6d 65 73 73 61 67 65 | 0d 19 28 08 6d 25 3d 30 |.message|..(.m%=0|
|000037e0| 0d 19 32 1e c8 95 20 c0 | 4d 4f 4e 54 48 24 28 6d |..2... .|MONTH$(m|
|000037f0| 25 29 2c 33 29 3c 3e 63 | 75 72 6d 6f 6e 24 0d 19 |%),3)<>c|urmon$..|
|00003800| 3c 0b 6d 25 3d 6d 25 2b | 31 0d 19 46 05 ce 0d 19 |<.m%=m%+|1..F....|
|00003810| 50 0e 6d 73 74 6f 72 65 | 25 3d 6d 25 0d 19 5a 46 |P.mstore|%=m%..ZF|
|00003820| e7 20 63 75 72 6d 6f 6e | 24 3d 22 53 65 70 22 20 |. curmon|$="Sep" |
|00003830| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 4f 63 74 22 | . curmo|n$="Oct"|
|00003840| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 4e 6f 76 22 | . curmo|n$="Nov"|
|00003850| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 44 65 63 22 | . curmo|n$="Dec"|
|00003860| 20 8c 0d 19 64 15 20 20 | 20 74 65 72 6d 24 3d 22 | ...d.  | term$="|
|00003870| 54 65 72 6d 20 31 22 0d | 19 6e 05 cc 0d 19 78 36 |Term 1".|.n....x6|
|00003880| e7 20 63 75 72 6d 6f 6e | 24 3d 22 4a 61 6e 22 20 |. curmon|$="Jan" |
|00003890| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 46 65 62 22 | . curmo|n$="Feb"|
|000038a0| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 4d 61 72 22 | . curmo|n$="Mar"|
|000038b0| 20 8c 0d 19 82 15 20 20 | 20 74 65 72 6d 24 3d 22 | .....  | term$="|
|000038c0| 54 65 72 6d 20 32 22 0d | 19 8c 05 cc 0d 19 96 58 |Term 2".|.......X|
|000038d0| e7 20 63 75 72 6d 6f 6e | 24 3d 22 41 70 72 22 20 |. curmon|$="Apr" |
|000038e0| 84 20 63 75 72 6d 6f 6e | 24 3d 22 4d 61 79 22 20 |. curmon|$="May" |
|000038f0| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 4a 75 6e 22 | . curmo|n$="Jun"|
|00003900| 20 84 20 63 75 72 6d 6f | 6e 24 3d 22 4a 75 6c 22 | . curmo|n$="Jul"|
|00003910| 20 8c 20 20 20 20 74 65 | 72 6d 24 3d 22 54 65 72 | .    te|rm$="Ter|
|00003920| 6d 20 33 22 0d 19 a0 05 | cd 0d 19 aa 06 20 cd 0d |m 3"....|..... ..|
|00003930| 19 b4 08 20 20 20 cd 0d | 19 be 05 e1 0d 19 c8 04 |...   ..|........|
|00003940| 0d 19 d2 41 dd f2 6d 6f | 6e 74 68 64 61 79 20 20 |...A..mo|nthday  |
|00003950| 3a f4 20 63 68 65 63 6b | 20 64 61 79 20 77 65 65 |:. check| day wee|
|00003960| 6b 20 6d 6f 6e 74 68 20 | 61 63 63 6f 75 6e 74 69 |k month |accounti|
|00003970| 6e 67 20 66 6f 72 20 6c | 65 61 70 20 79 65 61 72 |ng for l|eap year|
|00003980| 73 0d 19 dc 0a f7 20 8d | 7c 62 45 0d 19 e6 10 e7 |s..... .||bE.....|
|00003990| 20 4c 65 61 70 73 65 74 | 25 20 8c 0d 19 f0 0d 20 | Leapset|% ..... |
|000039a0| 44 25 28 35 29 3d 32 39 | 0d 19 fa 05 cc 0d 1a 04 |D%(5)=29|........|
|000039b0| 0d 20 44 25 28 35 29 3d | 32 38 0d 1a 0e 05 cd 0d |. D%(5)=|28......|
|000039c0| 1a 18 04 0d 1a 22 05 f5 | 0d 1a 2c 0c 20 f3 20 64 |....."..|..,. . d|
|000039d0| 61 74 61 24 0d 1a 36 27 | fd 20 c0 64 61 74 61 24 |ata$..6'|. .data$|
|000039e0| 2c 32 29 3d c1 91 24 2c | 31 34 2c 32 29 20 84 20 |,2)=..$,|14,2) . |
|000039f0| 64 61 74 61 24 3d 22 45 | 4e 44 22 0d 1a 40 14 20 |data$="E|ND"..@. |
|00003a00| e7 20 64 61 74 61 24 3d | 22 45 4e 44 22 20 8c 0d |. data$=|"END" ..|
|00003a10| 1a 4a 45 20 20 f1 22 44 | 61 74 61 20 73 74 61 74 |.JE  ."D|ata stat|
|00003a20| 65 6d 65 6e 74 20 66 6f | 72 20 64 61 74 65 73 20 |ement fo|r dates |
|00003a30| 61 74 20 74 68 65 20 65 | 6e 64 20 6f 66 20 70 72 |at the e|nd of pr|
|00003a40| 6f 67 72 61 6d 20 6e 65 | 65 64 73 20 75 70 2d 64 |ogram ne|eds up-d|
|00003a50| 61 74 65 22 0d 1a 54 45 | 20 20 f1 22 4f 6e 20 73 |ate"..TE|  ."On s|
|00003a60| 65 63 6f 6e 64 20 74 68 | 6f 75 67 68 74 27 73 2c |econd th|ought's,|
|00003a70| 20 70 65 72 68 61 70 73 | 20 74 68 65 20 74 65 63 | perhaps| the tec|
|00003a80| 68 6e 6f 6c 6f 67 79 20 | 6e 65 65 64 73 20 75 70 |hnology |needs up|
|00003a90| 2d 64 61 74 69 6e 67 21 | 22 0d 1a 5e 06 20 e0 0d |-dating!|"..^. ..|
|00003aa0| 1a 68 05 cd 0d 1a 72 0a | f7 20 8d 7c 6c 45 0d 1a |.h....r.|. .|lE..|
|00003ab0| 7c 0c f3 20 70 61 73 73 | 77 24 0d 1a 86 38 73 74 ||.. pass|w$...8st|
|00003ac0| 61 72 74 64 61 79 25 3d | bb 28 c2 64 61 74 61 24 |artday%=|.(.data$|
|00003ad0| 2c 31 29 29 20 3a f4 20 | 31 73 74 20 6f 66 20 53 |,1)) :. |1st of S|
|00003ae0| 65 70 74 65 6d 62 65 72 | 20 74 68 69 73 20 79 65 |eptember| this ye|
|00003af0| 61 72 0d 1a 90 04 0d 1a | 9a 15 64 61 79 6e 75 6d |ar......|..daynum|
|00003b00| 25 3d 73 74 61 72 74 64 | 61 79 25 0d 1a a4 15 e3 |%=startd|ay%.....|
|00003b10| 20 6d 6f 6e 74 68 25 20 | 3d 20 30 20 b8 20 31 30 | month% |= 0 . 10|
|00003b20| 0d 1a ae 0b 20 64 61 79 | 25 3d 31 0d 1a b8 05 f5 |.... day|%=1.....|
|00003b30| 0d 1a c2 04 0d 1a cc 39 | 20 6d 64 61 79 24 28 6d |.......9| mday$(m|
|00003b40| 6f 6e 74 68 25 2c 64 61 | 79 25 29 3d 77 65 65 6b |onth%,da|y%)=week|
|00003b50| 24 28 64 61 79 6e 75 6d | 25 29 20 20 20 20 20 20 |$(daynum|%)      |
|00003b60| 20 3a f4 20 73 74 6f 72 | 65 20 64 61 79 0d 1a d6 | :. stor|e day...|
|00003b70| 10 c8 8e 20 64 61 79 6e | 75 6d 25 20 ca 0d 1a e0 |... dayn|um% ....|
|00003b80| 14 20 20 c9 20 37 20 3a | 64 61 79 6e 75 6d 25 3d |.  . 7 :|daynum%=|
|00003b90| 31 0d 1a ea 17 7f 3a 64 | 61 79 6e 75 6d 25 3d 64 |1.....:d|aynum%=d|
|00003ba0| 61 79 6e 75 6d 25 2b 31 | 0d 1a f4 07 20 20 cb 0d |aynum%+1|....  ..|
|00003bb0| 1a fe 4a 20 64 61 79 25 | 3d 64 61 79 25 2b 31 20 |..J day%|=day%+1 |
|00003bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 69 |        |    :. i|
|00003be0| 6e 63 72 65 6d 65 6e 74 | 20 64 61 79 20 75 6e 74 |ncrement| day unt|
|00003bf0| 69 6c 20 65 6e 64 20 6f | 66 0d 1b 08 3a fd 20 64 |il end o|f...:. d|
|00003c00| 61 79 25 3d 44 25 28 6d | 6f 6e 74 68 25 29 2b 31 |ay%=D%(m|onth%)+1|
|00003c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c20| 20 20 3a f4 20 63 75 72 | 72 65 6e 74 20 6d 6f 6e |  :. cur|rent mon|
|00003c30| 74 68 2e 0d 1b 12 05 ed | 0d 1b 1c 18 e7 20 4c 65 |th......|..... Le|
|00003c40| 61 70 25 20 84 20 4c 65 | 61 70 73 65 74 25 20 8c |ap% . Le|apset% .|
|00003c50| 0d 1b 26 0d 20 44 25 28 | 35 29 3d 32 39 0d 1b 30 |..&. D%(|5)=29..0|
|00003c60| 05 cc 0d 1b 3a 0d 20 44 | 25 28 35 29 3d 32 38 0d |....:. D|%(5)=28.|
|00003c70| 1b 44 05 cd 0d 1b 4e 05 | e1 0d 1b 58 04 0d 1b 62 |.D....N.|...X...b|
|00003c80| 38 dd f2 73 61 76 65 64 | 61 74 61 20 20 20 20 20 |8..saved|ata     |
|00003c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 73 |        |    :. s|
|00003ca0| 61 76 65 20 72 65 67 69 | 73 74 72 61 74 69 6f 6e |ave regi|stration|
|00003cb0| 20 64 61 74 61 0d 1b 6c | 0d f2 73 68 6f 77 74 69 | data..l|..showti|
|00003cc0| 6d 65 0d 1b 76 27 2a 53 | 41 56 45 20 3c 4f 62 65 |me..v'*S|AVE <Obe|
|00003cd0| 79 24 44 69 72 3e 2e 61 | 74 74 66 20 35 43 30 30 |y$Dir>.a|ttf 5C00|
|00003ce0| 30 20 2b 20 32 39 41 46 | 45 0d 1b 80 05 e1 0d 1b |0 + 29AF|E.......|
|00003cf0| 8a 04 0d 1b 94 38 dd f2 | 6c 6f 61 64 64 61 74 61 |.....8..|loaddata|
|00003d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d10| 20 3a f4 20 6c 6f 61 64 | 20 72 65 67 69 73 74 72 | :. load| registr|
|00003d20| 61 74 69 6f 6e 20 64 61 | 74 61 0d 1b 9e 0d f2 73 |ation da|ta.....s|
|00003d30| 68 6f 77 74 69 6d 65 0d | 1b a8 1f 2a 4c 4f 41 44 |howtime.|...*LOAD|
|00003d40| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 61 74 74 66 | <Obey$D|ir>.attf|
|00003d50| 20 35 43 30 30 30 0d 1b | b2 05 e1 0d 1b bc 04 0d | 5C000..|........|
|00003d60| 1b c6 3c dd f2 63 72 65 | 61 74 65 72 65 67 20 20 |..<..cre|atereg  |
|00003d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a f4 20 41 |        |    :. A|
|00003d80| 73 73 69 67 6e 20 6e 75 | 6d 62 65 72 73 20 74 6f |ssign nu|mbers to|
|00003d90| 20 63 61 6e 64 69 64 61 | 74 65 73 0d 1b d0 3b eb | candida|tes...;.|
|00003da0| 20 37 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 7      |        |
|00003db0| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 61 6e 64 |        |  :. and|
|00003dc0| 20 73 65 74 20 75 70 20 | 63 61 6c 6c 65 6e 64 61 | set up |callenda|
|00003dd0| 72 20 77 69 74 68 0d 1b | da 37 e3 20 49 25 3d 30 |r with..|.7. I%=0|
|00003de0| 20 b8 20 41 41 25 20 20 | 20 20 20 20 20 20 20 20 | . AA%  |        |
|00003df0| 20 20 20 20 20 3a f4 20 | 77 65 65 6b 65 6e 64 73 |     :. |weekends|
|00003e00| 20 61 6e 64 20 68 6f 6c | 69 64 61 79 73 0d 1b e4 | and hol|idays...|
|00003e10| 25 41 24 28 49 25 29 3d | c0 41 24 28 49 25 29 2c |%A$(I%)=|.A$(I%),|
|00003e20| a9 28 41 24 28 49 25 29 | 29 2d 31 29 2b bd 28 49 |.(A$(I%)|)-1)+.(I|
|00003e30| 25 29 0d 1b ee 05 ed 0d | 1b f8 07 d9 23 30 0d 1c |%)......|....#0..|
|00003e40| 02 0e 2a 50 4f 49 4e 54 | 45 52 20 30 0d 1c 0c 29 |..*POINT|ER 0...)|
|00003e50| f1 22 20 20 20 54 68 65 | 20 66 69 72 73 74 20 74 |."   The| first t|
|00003e60| 61 73 6b 20 69 73 20 74 | 6f 20 69 6e 69 74 69 61 |ask is t|o initia|
|00003e70| 6c 69 73 65 22 0d 1c 16 | 28 f1 22 74 68 65 20 72 |lise"...|(."the r|
|00003e80| 65 67 69 73 74 65 72 20 | 74 6f 20 69 6e 63 6c 75 |egister |to inclu|
|00003e90| 64 65 20 77 65 65 6b 2d | 65 6e 64 73 22 0d 1c 20 |de week-|ends".. |
|00003ea0| 18 f1 22 61 6e 64 20 61 | 6e 79 20 68 6f 6c 69 64 |.."and a|ny holid|
|00003eb0| 61 79 73 2e 22 0d 1c 2a | 28 f1 22 20 20 20 57 65 |ays."..*|(."   We|
|00003ec0| 65 6b 2d 65 6e 64 73 20 | 61 72 65 20 69 6e 73 65 |ek-ends |are inse|
|00003ed0| 72 74 65 64 20 66 6f 72 | 20 79 6f 75 22 0d 1c 34 |rted for| you"..4|
|00003ee0| 29 f1 22 62 75 74 20 79 | 6f 75 20 77 69 6c 6c 20 |)."but y|ou will |
|00003ef0| 68 61 76 65 20 74 6f 20 | 73 70 65 63 69 66 79 20 |have to |specify |
|00003f00| 64 61 74 65 73 22 0d 1c | 3e 1a f1 22 77 68 69 63 |dates"..|>.."whic|
|00003f10| 68 20 61 72 65 20 68 6f | 6c 69 64 61 79 73 2e 22 |h are ho|lidays."|
|00003f20| 0d 1c 48 29 f1 22 20 20 | 20 54 6f 20 64 6f 20 74 |..H)."  | To do t|
|00003f30| 68 69 73 20 70 6f 69 6e | 74 20 61 74 20 64 61 74 |his poin|t at dat|
|00003f40| 65 73 20 77 68 69 63 68 | 22 0d 1c 52 27 f1 22 20 |es which|"..R'." |
|00003f50| 61 72 65 20 68 6f 6c 69 | 64 61 79 73 20 61 6e 64 |are holi|days and|
|00003f60| 20 63 6c 69 63 6b 20 74 | 68 65 20 6c 65 66 74 22 | click t|he left"|
|00003f70| 0d 1c 5c 21 f1 22 2d 68 | 61 6e 64 20 62 75 74 74 |..\!."-h|and butt|
|00003f80| 6f 6e 20 6f 6e 20 74 68 | 65 20 6d 6f 75 73 65 2e |on on th|e mouse.|
|00003f90| 22 0d 1c 66 21 f1 22 54 | 68 65 20 72 69 67 68 74 |"..f!."T|he right|
|00003fa0| 2d 68 61 6e 64 20 62 75 | 74 74 6f 6e 20 77 69 6c |-hand bu|tton wil|
|00003fb0| 6c 22 0d 1c 70 21 f1 22 | 61 6c 6c 6f 77 20 79 6f |l"..p!."|allow yo|
|00003fc0| 75 20 74 6f 20 72 65 73 | 65 74 20 65 72 72 6f 72 |u to res|et error|
|00003fd0| 73 2e 22 0d 1c 7a 05 f1 | 0d 1c 84 09 f2 77 61 69 |s."..z..|.....wai|
|00003fe0| 74 0d 1c 8e 38 f2 69 6e | 73 65 72 74 57 45 73 20 |t...8.in|sertWEs |
|00003ff0| 20 20 20 3a f4 20 77 65 | 65 6b 65 6e 64 73 20 61 |   :. we|ekends a|
|00004000| 72 65 20 69 6e 73 65 72 | 74 65 64 20 61 75 74 6f |re inser|ted auto|
|00004010| 6d 61 74 69 63 61 6c 6c | 79 0d 1c 98 3b f2 61 73 |maticall|y...;.as|
|00004020| 73 65 6d 62 6c 65 20 20 | 20 20 20 3a f4 20 71 75 |semble  |   :. qu|
|00004030| 69 63 6b 20 64 61 74 61 | 20 74 72 61 6e 73 66 65 |ick data| transfe|
|00004040| 72 20 66 72 6f 6d 20 68 | 6f 6c 69 64 61 79 20 73 |r from h|oliday s|
|00004050| 74 6f 72 65 0d 1c a2 20 | eb 31 32 20 20 20 20 20 |tore... |.12     |
|00004060| 20 20 20 20 20 20 3a f4 | 20 74 6f 20 72 65 63 6f |      :.| to reco|
|00004070| 72 64 73 2e 0d 1c ac 30 | f2 69 6e 73 65 72 74 68 |rds....0|.inserth|
|00004080| 6f 6c 73 20 20 20 3a f4 | 20 55 73 65 20 6d 6f 75 |ols   :.| Use mou|
|00004090| 73 65 20 74 6f 20 69 6e | 70 75 74 20 68 6f 6c 69 |se to in|put holi|
|000040a0| 64 61 79 73 0d 1c b6 2c | d6 20 6f 72 67 20 20 20 |days...,|. org   |
|000040b0| 20 20 20 20 20 20 3a f4 | 20 69 6d 70 6c 65 6d 65 |      :.| impleme|
|000040c0| 6e 74 20 64 61 74 61 20 | 74 72 61 6e 73 66 65 72 |nt data |transfer|
|000040d0| 0d 1c c0 24 f2 73 61 76 | 65 64 61 74 61 20 20 20 |...$.sav|edata   |
|000040e0| 20 20 3a f4 20 53 61 76 | 65 20 65 76 65 72 79 74 |  :. Sav|e everyt|
|000040f0| 68 69 6e 67 0d 1c ca 0d | f2 73 61 76 65 66 69 6c |hing....|.savefil|
|00004100| 65 0d 1c d4 05 e1 0d 1c | de 04 0d 1c e8 0e dd f2 |e.......|........|
|00004110| 61 73 73 65 6d 62 6c 65 | 0d 1c f2 0d de 20 6f 72 |assemble|..... or|
|00004120| 67 20 31 30 30 0d 1c fc | 0b 6c 69 6e 6b 3d 31 34 |g 100...|.link=14|
|00004130| 0d 1d 06 09 73 70 3d 31 | 33 0d 1d 10 10 62 61 73 |....sp=1|3....bas|
|00004140| 65 25 3d 26 35 43 30 30 | 30 0d 1d 1a 12 68 6f 6c |e%=&5C00|0....hol|
|00004150| 25 3d 68 6f 6c 73 74 61 | 72 74 25 0d 1d 24 16 e3 |%=holsta|rt%..$..|
|00004160| 20 70 61 73 73 20 3d 20 | 30 20 b8 20 32 20 88 20 | pass = |0 . 2 . |
|00004170| 32 0d 1d 2e 0a 50 25 3d | 6f 72 67 0d 1d 38 0d 5b |2....P%=|org..8.[|
|00004180| 6f 70 74 20 70 61 73 73 | 0d 1d 42 17 53 54 4d 46 |opt pass|..B.STMF|
|00004190| 44 20 28 73 70 29 21 2c | 20 7b 6c 69 6e 6b 7d 0d |D (sp)!,| {link}.|
|000041a0| 1d 4c 2e 4d 4f 56 20 52 | 33 2c 23 62 61 73 65 25 |.L.MOV R|3,#base%|
|000041b0| 20 20 20 20 20 20 3b 70 | 75 74 20 62 61 73 65 20 |      ;p|ut base |
|000041c0| 61 64 64 72 65 73 73 20 | 69 6e 20 52 33 0d 1d 56 |address |in R3..V|
|000041d0| 23 41 44 44 20 52 33 2c | 52 33 2c 23 31 20 20 20 |#ADD R3,|R3,#1   |
|000041e0| 20 20 20 20 3b 61 64 64 | 20 31 20 74 6f 20 69 74 |    ;add| 1 to it|
|000041f0| 0d 1d 60 0a 2e 61 67 61 | 69 6e 0d 1d 6a 11 4d 4f |..`..aga|in..j.MO|
|00004200| 56 20 52 31 2c 23 62 61 | 73 65 25 0d 1d 74 38 53 |V R1,#ba|se%..t8S|
|00004210| 55 42 20 52 31 2c 52 31 | 2c 23 26 33 30 30 20 20 |UB R1,R1|,#&300  |
|00004220| 20 20 3b 70 75 74 20 73 | 74 61 72 74 20 6f 66 20 |  ;put s|tart of |
|00004230| 68 6f 6c 69 64 61 79 20 | 73 74 6f 72 65 20 69 6e |holiday |store in|
|00004240| 20 52 31 0d 1d 7e 0d 4d | 4f 56 20 52 35 2c 52 31 | R1..~.M|OV R5,R1|
|00004250| 0d 1d 88 13 41 44 44 20 | 52 35 2c 52 35 2c 23 26 |....ADD |R5,R5,#&|
|00004260| 32 41 30 0d 1d 92 36 41 | 44 44 20 52 35 2c 52 35 |2A0...6A|DD R5,R5|
|00004270| 2c 23 39 20 20 20 20 20 | 20 20 3b 70 75 74 20 65 |,#9     |  ;put e|
|00004280| 6e 64 20 6f 66 20 68 6f | 6c 69 64 61 79 20 73 74 |nd of ho|liday st|
|00004290| 6f 72 65 20 69 6e 20 52 | 35 0d 1d 9c 10 41 44 44 |ore in R|5....ADD|
|000042a0| 20 52 35 2c 52 35 2c 23 | 31 0d 1d a6 09 2e 6e 65 | R5,R5,#|1.....ne|
|000042b0| 78 74 0d 1d b0 3b 4c 44 | 52 42 20 52 32 2c 20 5b |xt...;LD|RB R2, [|
|000042c0| 52 31 5d 2c 23 31 20 20 | 20 3b 70 75 74 20 61 20 |R1],#1  | ;put a |
|000042d0| 62 79 74 65 20 66 72 6f | 6d 20 68 6f 6c 69 64 61 |byte fro|m holida|
|000042e0| 79 20 73 74 6f 72 65 20 | 69 6e 20 52 32 0d 1d ba |y store |in R2...|
|000042f0| 34 4c 44 52 42 20 52 34 | 2c 5b 52 33 5d 2c 23 31 |4LDRB R4|,[R3],#1|
|00004300| 20 20 20 20 3b 70 75 74 | 20 61 20 62 79 74 65 20 |    ;put| a byte |
|00004310| 66 72 6f 6d 20 72 65 63 | 6f 72 64 20 69 6e 20 52 |from rec|ord in R|
|00004320| 34 0d 1d c4 3e 43 4d 50 | 20 52 31 2c 52 35 20 20 |4...>CMP| R1,R5  |
|00004330| 20 20 20 20 20 20 20 20 | 3b 63 6f 6d 70 61 72 65 |        |;compare|
|00004340| 20 52 31 20 74 6f 20 52 | 35 20 65 6e 64 20 6f 66 | R1 to R|5 end of|
|00004350| 20 68 6f 6c 69 64 61 79 | 20 73 74 6f 72 65 3f 0d | holiday| store?.|
|00004360| 1d ce 24 42 45 51 20 65 | 6e 64 20 20 20 20 20 20 |..$BEQ e|nd      |
|00004370| 20 20 20 20 20 20 3b 69 | 66 20 65 71 75 61 6c 20 |      ;i|f equal |
|00004380| 65 6e 64 0d 1d d8 26 54 | 45 51 20 52 32 2c 23 33 |end...&T|EQ R2,#3|
|00004390| 32 20 20 20 20 20 20 20 | 20 20 3b 49 73 20 52 32 |2       |  ;Is R2|
|000043a0| 20 61 20 53 70 61 63 65 | 3f 0d 1d e2 2f 42 45 51 | a Space|?.../BEQ|
|000043b0| 20 6e 65 78 74 20 20 20 | 20 20 20 20 20 20 20 20 | next   |        |
|000043c0| 3b 49 66 20 73 6f 20 67 | 65 74 20 74 68 65 20 6e |;If so g|et the n|
|000043d0| 65 78 74 20 62 79 74 65 | 0d 1d ec 26 54 45 51 20 |ext byte|...&TEQ |
|000043e0| 52 34 2c 23 33 32 20 20 | 20 20 20 20 20 20 20 3b |R4,#32  |       ;|
|000043f0| 69 73 20 52 34 20 61 20 | 73 70 61 63 65 3f 0d 1d |is R4 a |space?..|
|00004400| f6 2c 42 4e 45 20 6e 65 | 78 74 20 20 20 20 20 20 |.,BNE ne|xt      |
|00004410| 20 20 20 20 20 3b 69 66 | 20 6e 6f 74 20 67 65 74 |     ;if| not get|
|00004420| 20 6e 65 78 74 20 62 79 | 74 65 0d 1e 00 44 53 54 | next by|te...DST|
|00004430| 52 42 20 52 32 2c 5b 52 | 33 2c 23 2d 31 5d 20 20 |RB R2,[R|3,#-1]  |
|00004440| 20 3b 49 66 20 68 6f 6c | 69 64 61 79 20 73 74 6f | ;If hol|iday sto|
|00004450| 72 65 20 62 79 74 65 20 | 61 6e 64 20 73 70 61 63 |re byte |and spac|
|00004460| 65 20 69 6e 20 72 65 63 | 20 73 74 6f 72 65 0d 1e |e in rec| store..|
|00004470| 0a 0c 42 41 4c 20 6e 65 | 78 74 0d 1e 14 08 2e 65 |..BAL ne|xt.....e|
|00004480| 6e 64 0d 1e 1e 10 41 44 | 44 20 52 33 2c 52 33 2c |nd....AD|D R3,R3,|
|00004490| 23 31 0d 1e 28 2b 43 4d | 50 20 52 33 2c 23 26 38 |#1..(+CM|P R3,#&8|
|000044a0| 36 30 30 30 20 20 20 20 | 3b 45 6e 64 20 6f 66 20 |6000    |;End of |
|000044b0| 72 65 63 6f 72 64 20 73 | 70 61 63 65 3f 0d 1e 32 |record s|pace?..2|
|000044c0| 0d 42 4c 54 20 61 67 61 | 69 6e 0d 1e 3c 15 4c 44 |.BLT aga|in..<.LD|
|000044d0| 4d 46 44 20 28 73 70 29 | 21 2c 20 7b 50 43 7d 0d |MFD (sp)|!, {PC}.|
|000044e0| 1e 46 05 5d 0d 1e 50 05 | ed 0d 1e 5a 04 0d 1e 64 |.F.]..P.|...Z...d|
|000044f0| 05 e1 0d 1e 6e 04 0d 1e | 78 0c dd f2 61 70 70 65 |....n...|x...appe|
|00004500| 6e 64 0d 1e 82 11 f2 67 | 65 74 74 75 74 67 70 64 |nd.....g|ettutgpd|
|00004510| 61 74 61 0d 1e 8c 07 eb | 20 37 0d 1e 96 2c f1 22 |ata.....| 7...,."|
|00004520| 54 68 69 73 20 70 61 72 | 74 20 6f 66 20 74 68 65 |This par|t of the|
|00004530| 20 70 72 6f 67 72 61 6d | 20 69 73 20 74 6f 20 73 | program| is to s|
|00004540| 65 74 20 75 70 22 0d 1e | a0 2c f1 22 61 20 66 69 |et up"..|.,."a fi|
|00004550| 6c 65 20 6f 66 20 74 68 | 65 20 6e 61 6d 65 73 20 |le of th|e names |
|00004560| 6f 66 20 73 74 75 64 65 | 6e 74 73 20 74 6f 20 62 |of stude|nts to b|
|00004570| 65 22 0d 1e aa 2d f1 22 | 72 65 67 69 73 74 65 72 |e"...-."|register|
|00004580| 65 64 2c 20 6e 6f 72 6d | 61 6c 6c 79 20 61 20 79 |ed, norm|ally a y|
|00004590| 65 61 72 20 67 72 6f 75 | 70 2e 20 59 6f 75 22 0d |ear grou|p. You".|
|000045a0| 1e b4 2c f1 22 63 61 6e | 20 73 74 61 72 74 20 74 |..,."can| start t|
|000045b0| 68 65 20 66 69 6c 65 2c | 20 73 61 76 65 20 79 6f |he file,| save yo|
|000045c0| 75 72 20 63 75 72 72 65 | 6e 74 22 0d 1e be 2b f1 |ur curre|nt"...+.|
|000045d0| 22 77 6f 72 6b 20 61 6e | 64 20 74 68 65 6e 20 72 |"work an|d then r|
|000045e0| 65 2d 6c 6f 61 64 20 74 | 6f 20 61 64 64 20 66 75 |e-load t|o add fu|
|000045f0| 72 74 68 65 72 22 0d 1e | c8 2a f1 22 72 65 63 6f |rther"..|.*."reco|
|00004600| 72 64 73 20 6c 61 74 65 | 72 2e 20 59 6f 75 20 6d |rds late|r. You m|
|00004610| 75 73 74 20 73 65 74 20 | 75 70 20 74 68 69 73 22 |ust set |up this"|
|00004620| 0d 1e d2 2c f1 22 66 69 | 6c 65 20 63 6f 6d 70 6c |...,."fi|le compl|
|00004630| 65 74 65 6c 79 20 62 65 | 66 6f 72 65 20 73 65 74 |etely be|fore set|
|00004640| 74 69 6e 67 20 75 70 20 | 74 68 65 22 0d 1e dc 2c |ting up |the"...,|
|00004650| f1 22 72 65 67 69 73 74 | 65 72 20 75 73 69 6e 67 |."regist|er using|
|00004660| 20 6f 70 74 69 6f 6e 20 | 33 20 6f 6e 20 74 68 65 | option |3 on the|
|00004670| 20 73 65 74 20 75 70 22 | 0d 1e e6 2c f1 22 6d 65 | set up"|...,."me|
|00004680| 6e 75 2e 20 4f 64 64 20 | 61 6d 65 6e 64 6d 65 6e |nu. Odd |amendmen|
|00004690| 74 73 20 63 61 6e 20 62 | 65 20 64 6f 6e 65 20 66 |ts can b|e done f|
|000046a0| 72 6f 6d 22 0d 1e f0 2d | f1 22 74 68 65 20 61 6d |rom"...-|."the am|
|000046b0| 65 6e 64 6d 65 6e 74 73 | 20 6d 65 6e 75 2e 20 28 |endments| menu. (|
|000046c0| 53 74 75 64 65 6e 74 73 | 20 6c 65 61 76 69 6e 67 |Students| leaving|
|000046d0| 22 0d 1e fa 14 f1 22 61 | 72 72 69 76 69 6e 67 20 |"....."a|rriving |
|000046e0| 65 74 63 29 22 0d 1f 04 | 2e f1 22 59 6f 75 20 73 |etc)"...|.."You s|
|000046f0| 68 6f 75 6c 64 20 61 6c | 73 6f 20 6d 61 6b 65 20 |hould al|so make |
|00004700| 73 75 72 65 20 74 68 61 | 74 20 79 6f 75 20 68 61 |sure tha|t you ha|
|00004710| 76 65 22 0d 1f 0e 29 f1 | 22 73 65 74 20 75 70 20 |ve"...).|"set up |
|00004720| 61 20 74 75 74 6f 72 20 | 6d 65 6e 75 20 75 73 69 |a tutor |menu usi|
|00004730| 6e 67 20 6f 70 74 69 6f | 6e 20 31 22 0d 1f 18 05 |ng optio|n 1"....|
|00004740| f1 0d 1f 22 09 f2 77 61 | 69 74 0d 1f 2c 05 db 0d |..."..wa|it..,...|
|00004750| 1f 36 28 f1 22 48 61 76 | 65 20 79 6f 75 20 73 74 |.6(."Hav|e you st|
|00004760| 61 72 74 65 64 20 61 20 | 66 69 6c 65 20 6f 66 20 |arted a |file of |
|00004770| 6e 61 6d 65 73 3f 22 0d | 1f 40 0a f1 22 59 2f 4e |names?".|.@.."Y/N|
|00004780| 22 0d 1f 4a 08 54 24 3d | be 0d 1f 54 17 e7 20 54 |"..J.T$=|...T.. T|
|00004790| 24 3d 22 4e 22 20 84 20 | 54 24 3d 22 6e 22 20 8c |$="N" . |T$="n" .|
|000047a0| 0d 1f 5e 0b 20 41 41 25 | 3d 2d 31 0d 1f 68 05 cd |..^. AA%|=-1..h..|
|000047b0| 0d 1f 72 04 0d 1f 7c 87 | f1 8a 30 2c 34 29 22 54 |..r...|.|..0,4)"T|
|000047c0| 6f 20 73 74 6f 70 20 61 | 64 64 69 6e 67 20 6e 65 |o stop a|dding ne|
|000047d0| 77 20 72 65 63 6f 72 64 | 73 20 61 74 20 61 6e 79 |w record|s at any|
|000047e0| 20 74 69 6d 65 2c 20 50 | 72 65 73 73 20 65 73 63 | time, P|ress esc|
|000047f0| 61 70 65 20 77 68 65 6e | 20 61 73 6b 65 64 20 66 |ape when| asked f|
|00004800| 6f 72 20 6e 65 78 74 22 | 27 22 6e 61 6d 65 22 27 |or next"|'"name"'|
|00004810| 22 54 68 65 72 65 20 69 | 73 20 72 6f 6f 6d 20 66 |"There i|s room f|
|00004820| 6f 72 20 22 3b 6e 75 6d | 25 2d 41 41 25 2d 31 3b |or ";num|%-AA%-1;|
|00004830| 22 20 72 65 63 6f 72 64 | 73 2e 22 0d 1f 86 0b 20 |" record|s.".... |
|00004840| 20 f2 77 61 69 74 0d 1f | 90 11 20 20 f2 6e 65 78 | .wait..|..  .nex|
|00004850| 74 72 65 63 6f 72 64 0d | 1f 9a 07 20 20 e1 0d 1f |trecord.|...  ...|
|00004860| a4 04 0d 1f ae 0c 20 20 | dd f2 74 65 78 74 0d 1f |......  |..text..|
|00004870| b8 29 f1 22 59 6f 75 20 | 61 72 65 20 6e 6f 77 20 |.)."You |are now |
|00004880| 67 6f 69 6e 67 20 74 6f | 20 65 6e 74 65 72 20 73 |going to| enter s|
|00004890| 74 75 64 65 6e 74 22 0d | 1f c2 29 f1 22 6e 61 6d |tudent".|..)."nam|
|000048a0| 65 28 73 29 2e 20 54 68 | 65 73 65 20 6d 75 73 74 |e(s). Th|ese must|
|000048b0| 20 62 65 20 65 6e 74 65 | 72 65 64 20 20 20 20 22 | be ente|red    "|
|000048c0| 0d 1f cc 28 f1 22 73 75 | 72 6e 61 6d 65 20 66 69 |...(."su|rname fi|
|000048d0| 72 73 74 2e 20 54 68 65 | 20 70 72 6f 67 72 61 6d |rst. The| program|
|000048e0| 20 69 73 20 20 20 20 22 | 0d 1f d6 28 f1 22 64 65 | is    "|...(."de|
|000048f0| 73 69 67 6e 65 64 20 74 | 6f 20 61 6c 6c 6f 77 20 |signed t|o allow |
|00004900| 65 61 73 79 20 64 61 74 | 61 20 65 6e 74 72 79 22 |easy dat|a entry"|
|00004910| 0d 1f e0 28 f1 22 62 75 | 74 20 63 6f 6e 76 65 72 |...(."bu|t conver|
|00004920| 74 73 20 6e 61 6d 65 73 | 20 66 72 6f 6d 20 4c 59 |ts names| from LY|
|00004930| 4e 43 48 20 49 41 4e 22 | 0d 1f ea 28 f1 22 66 6f |NCH IAN"|...(."fo|
|00004940| 72 6d 61 74 20 74 6f 20 | 49 61 6e 20 4c 79 6e 63 |rmat to |Ian Lync|
|00004950| 68 20 66 6f 72 20 70 72 | 69 6e 74 69 6e 67 2e 22 |h for pr|inting."|
|00004960| 0d 1f f4 2a f1 22 53 6f | 6d 65 20 6e 61 6d 65 73 |...*."So|me names|
|00004970| 20 63 6f 75 6c 64 20 63 | 61 75 73 65 20 70 72 6f | could c|ause pro|
|00004980| 62 6c 65 6d 73 20 62 75 | 74 22 0d 1f fe 2a f1 22 |blems bu|t"...*."|
|00004990| 6d 6f 73 74 20 4d 63 20 | 4d 61 63 20 4f 27 20 65 |most Mc |Mac O' e|
|000049a0| 74 63 20 61 72 65 20 61 | 6c 6c 6f 77 65 64 20 66 |tc are a|llowed f|
|000049b0| 6f 72 2e 22 0d 20 08 24 | f1 22 49 20 68 61 76 65 |or.". .$|."I have|
|000049c0| 20 66 6f 75 6e 64 20 69 | 74 20 62 65 73 74 20 74 | found i|t best t|
|000049d0| 6f 20 65 6e 74 65 72 22 | 0d 20 12 29 f1 22 4d 43 |o enter"|. .)."MC|
|000049e0| 20 44 4f 4e 41 4c 44 20 | 72 61 74 68 65 72 20 74 | DONALD |rather t|
|000049f0| 68 61 6e 20 4d 43 44 4f | 4e 41 4c 44 20 62 75 74 |han MCDO|NALD but|
|00004a00| 22 0d 20 1c 2a f1 22 74 | 68 69 73 20 69 73 20 75 |". .*."t|his is u|
|00004a10| 70 20 74 6f 20 79 6f 75 | 2e 20 54 68 65 20 66 6f |p to you|. The fo|
|00004a20| 72 6d 65 72 20 77 6f 75 | 6c 64 22 0d 20 26 29 f1 |rmer wou|ld". &).|
|00004a30| 22 62 65 20 70 72 69 6e | 74 65 64 20 61 73 20 4d |"be prin|ted as M|
|00004a40| 63 20 44 6f 6e 61 6c 64 | 20 74 68 65 20 6c 61 74 |c Donald| the lat|
|00004a50| 74 65 72 22 0d 20 30 10 | f1 22 4d 63 64 6f 6e 61 |ter". 0.|."Mcdona|
|00004a60| 6c 64 2e 22 0d 20 3a 05 | f1 0d 20 44 07 20 20 e1 |ld.". :.|.. D.  .|
|00004a70| 0d 20 4e 04 0d 20 58 10 | dd f2 6e 65 78 74 72 65 |. N.. X.|..nextre|
|00004a80| 63 6f 72 64 0d 20 62 05 | f5 0d 20 6c 12 20 20 20 |cord. b.|.. l.   |
|00004a90| 20 20 f2 69 6e 70 75 74 | 73 65 78 0d 20 76 05 db |  .input|sex. v..|
|00004aa0| 0d 20 80 11 f2 63 68 6f | 6f 73 65 5f 74 75 74 6f |. ...cho|ose_tuto|
|00004ab0| 72 0d 20 8a 07 eb 20 37 | 0d 20 94 09 f2 74 65 78 |r. ... 7|. ...tex|
|00004ac0| 74 0d 20 9e 0a f2 77 61 | 69 74 68 0d 20 a8 04 0d |t. ...wa|ith. ...|
|00004ad0| 20 b2 05 f5 0d 20 bc 0e | f2 69 6e 70 75 74 6e 61 | .... ..|.inputna|
|00004ae0| 6d 65 0d 20 c6 3f 20 20 | 41 24 20 3d 20 c4 34 2c |me. .?  |A$ = .4,|
|00004af0| 22 20 22 29 2b 41 24 2b | 54 24 2b 67 6e 61 6d 65 |" ")+A$+|T$+gname|
|00004b00| 24 2b 22 20 20 20 22 3a | f4 20 33 20 73 70 61 63 |$+"   ":|. 3 spac|
|00004b10| 65 73 20 66 6f 72 20 73 | 65 74 20 61 6e 64 20 69 |es for s|et and i|
|00004b20| 64 0d 20 d0 11 20 20 41 | 41 25 20 3d 20 41 41 25 |d. ..  A|A% = AA%|
|00004b30| 2b 31 0d 20 da 10 20 20 | 41 24 28 41 41 25 29 3d |+1. ..  |A$(AA%)=|
|00004b40| 41 24 0d 20 e4 1f e7 20 | 41 41 25 20 3e 20 6e 75 |A$. ... |AA% > nu|
|00004b50| 6d 25 20 8c 20 f1 22 46 | 49 4c 45 20 46 55 4c 4c |m% . ."F|ILE FULL|
|00004b60| 22 0d 20 ee 2a f1 22 49 | 66 20 79 6f 75 20 77 61 |". .*."I|f you wa|
|00004b70| 6e 74 20 74 6f 20 63 68 | 61 6e 67 65 20 69 6e 69 |nt to ch|ange ini|
|00004b80| 74 69 61 6c 6c 79 20 73 | 65 74 22 0d 20 f8 28 f1 |tially s|et". .(.|
|00004b90| 22 64 61 74 61 20 65 67 | 20 73 65 78 20 6f 72 20 |"data eg| sex or |
|00004ba0| 74 75 74 6f 72 20 63 6f | 64 65 2c 20 74 79 70 65 |tutor co|de, type|
|00004bb0| 20 43 22 0d 21 02 14 f1 | 22 54 79 70 65 20 45 20 | C".!...|"Type E |
|00004bc0| 74 6f 20 65 6e 64 22 0d | 21 0c 24 f1 bd 31 32 39 |to end".|!.$..129|
|00004bd0| 3b 22 6f 74 68 65 72 77 | 69 73 65 20 70 72 65 73 |;"otherw|ise pres|
|00004be0| 73 20 73 70 61 63 65 62 | 61 72 22 0d 21 16 08 54 |s spaceb|ar".!..T|
|00004bf0| 25 3d a5 0d 21 20 1e fd | 20 41 41 25 3d 6e 75 6d |%=..! ..| AA%=num|
|00004c00| 25 20 84 20 54 25 3d 36 | 37 20 84 20 54 25 3d 36 |% . T%=6|7 . T%=6|
|00004c10| 39 0d 21 2a 16 fd 20 41 | 41 25 3d 6e 75 6d 25 20 |9.!*.. A|A%=num% |
|00004c20| 84 20 54 25 3d 36 39 0d | 21 34 50 f1 22 4e 6f 77 |. T%=69.|!4P."Now|
|00004c30| 20 74 68 65 20 66 69 6c | 65 20 77 69 6c 6c 20 62 | the fil|e will b|
|00004c40| 65 20 73 6f 72 74 65 64 | 2c 20 61 6e 64 20 73 61 |e sorted|, and sa|
|00004c50| 76 65 64 20 61 75 74 6f | 6d 61 74 69 63 61 6c 6c |ved auto|maticall|
|00004c60| 79 20 75 6e 64 65 72 20 | 74 68 65 20 6e 61 6d 65 |y under |the name|
|00004c70| 20 4e 61 6d 65 73 22 0d | 21 3e 4d f1 22 41 6e 79 | Names".|!>M."Any|
|00004c80| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 69 | existin|g file i|
|00004c90| 6e 20 74 68 69 73 20 64 | 69 72 65 63 74 6f 72 79 |n this d|irectory|
|00004ca0| 20 63 61 6c 6c 65 64 20 | 4e 61 6d 65 73 20 77 69 | called |Names wi|
|00004cb0| 6c 6c 20 62 65 20 6f 76 | 65 72 2d 77 72 69 74 74 |ll be ov|er-writt|
|00004cc0| 65 6e 2e 22 0d 21 48 1d | f1 22 50 72 65 73 73 20 |en.".!H.|."Press |
|00004cd0| 45 53 43 41 50 45 20 74 | 6f 20 61 62 6f 72 74 2d |ESCAPE t|o abort-|
|00004ce0| 22 0d 21 52 1c f1 22 20 | 73 70 61 63 65 62 61 72 |".!R.." |spacebar|
|00004cf0| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 0d 21 5c | to cont|inue".!\|
|00004d00| 07 54 3d a5 0d 21 66 0d | f2 73 68 6f 77 74 69 6d |.T=..!f.|.showtim|
|00004d10| 65 0d 21 70 0f f2 73 6f | 72 74 28 41 24 28 29 29 |e.!p..so|rt(A$())|
|00004d20| 0d 21 7a 0d f2 73 61 76 | 65 66 69 6c 65 0d 21 84 |.!z..sav|efile.!.|
|00004d30| 05 e1 0d 21 8e 04 0d 21 | 98 0f dd f2 69 6e 70 75 |...!...!|....inpu|
|00004d40| 74 6e 61 6d 65 0d 21 a2 | 05 db 0d 21 ac 30 20 f1 |tname.!.|...!.0 .|
|00004d50| 22 4e 61 6d 65 20 6f 66 | 20 73 74 75 64 65 6e 74 |"Name of| student|
|00004d60| 20 65 2e 67 20 42 4c 4f | 47 47 53 20 53 55 45 2c | e.g BLO|GGS SUE,|
|00004d70| 53 4d 49 54 48 20 53 41 | 4d 22 0d 21 b6 10 20 f2 |SMITH SA|M".!.. .|
|00004d80| 66 6f 72 63 65 75 70 70 | 65 72 0d 21 c0 12 c8 95 |forceupp|er.!....|
|00004d90| 20 a9 28 6e 61 6d 65 24 | 29 3c 32 32 0d 21 ca 14 | .(name$|)<22.!..|
|00004da0| 20 6e 61 6d 65 24 3d 6e | 61 6d 65 24 2b 22 20 22 | name$=n|ame$+" "|
|00004db0| 0d 21 d4 05 ce 0d 21 de | 12 20 41 24 3d c0 6e 61 |.!....!.|. A$=.na|
|00004dc0| 6d 65 24 2c 32 32 29 0d | 21 e8 06 20 db 0d 21 f2 |me$,22).|!.. ..!.|
|00004dd0| 05 e1 0d 21 fc 04 0d 22 | 06 0e dd f2 69 6e 70 75 |...!..."|....inpu|
|00004de0| 74 73 65 78 0d 22 10 06 | 20 f5 0d 22 1a 08 20 20 |tsex."..| .."..  |
|00004df0| 20 db 0d 22 24 1d 20 20 | 20 20 20 f1 22 54 79 70 | .."$.  |   ."Typ|
|00004e00| 65 20 69 6e 20 73 65 78 | 20 28 4d 2f 46 29 22 0d |e in sex| (M/F)".|
|00004e10| 22 2e 0d 20 20 20 20 20 | 54 24 3d be 0d 22 38 17 |"..     |T$=.."8.|
|00004e20| 20 fd 20 54 24 3d 20 22 | 4d 22 20 84 20 54 24 3d | . T$= "|M" . T$=|
|00004e30| 22 46 22 0d 22 42 06 20 | e1 0d 22 4c 04 0d 22 56 |"F"."B. |.."L.."V|
|00004e40| 34 dd f2 66 72 6f 6d 65 | 78 69 73 74 20 20 3a f4 |4..frome|xist  :.|
|00004e50| 20 61 6c 6c 6f 77 73 20 | 74 72 61 6e 73 66 65 72 | allows |transfer|
|00004e60| 20 66 6f 72 6d 20 6f 74 | 68 65 72 20 66 69 6c 65 | form ot|her file|
|00004e70| 73 0d 22 60 05 db 0d 22 | 6a 3c f1 22 53 65 6c 65 |s."`..."|j<."Sele|
|00004e80| 63 74 20 73 75 62 6a 65 | 63 74 20 6e 61 6d 65 20 |ct subje|ct name |
|00004e90| 74 68 65 6e 20 74 75 74 | 6f 72 20 67 72 6f 75 70 |then tut|or group|
|00004ea0| 20 6f 66 20 65 78 69 73 | 74 69 6e 67 20 66 69 6c | of exis|ting fil|
|00004eb0| 65 22 0d 22 74 09 f2 77 | 61 69 74 0d 22 7e 10 f2 |e"."t..w|ait."~..|
|00004ec0| 73 75 62 6a 65 63 74 6d | 65 6e 75 0d 22 88 05 db |subjectm|enu."...|
|00004ed0| 0d 22 92 11 f2 63 68 6f | 6f 73 65 5f 74 75 74 6f |."...cho|ose_tuto|
|00004ee0| 72 0d 22 9c 1f e8 22 45 | 6e 74 65 72 20 66 69 6c |r."..."E|nter fil|
|00004ef0| 65 6e 61 6d 65 22 3b 46 | 69 6c 65 6e 61 6d 65 24 |ename";F|ilename$|
|00004f00| 0d 22 a6 20 58 3d ad 28 | 22 3c 4f 62 65 79 24 44 |.". X=.(|"<Obey$D|
|00004f10| 69 72 3e 2e 22 2b 46 69 | 6c 65 6e 61 6d 65 24 29 |ir>."+Fi|lename$)|
|00004f20| 0d 22 b0 09 20 49 25 3d | 30 0d 22 ba 07 20 20 f5 |.".. I%=|0."..  .|
|00004f30| 0d 22 c4 11 20 20 20 20 | f2 73 68 6f 77 74 69 6d |."..    |.showtim|
|00004f40| 65 0d 22 ce 12 20 20 20 | 20 e8 23 58 2c 41 24 28 |e."..   | .#X,A$(|
|00004f50| 49 25 29 0d 22 d8 1e 20 | 20 20 20 e7 20 97 28 c1 |I%).".. |   . .(.|
|00004f60| 41 24 28 49 25 29 2c 35 | 2c 31 29 29 3e 33 32 20 |A$(I%),5|,1))>32 |
|00004f70| 8c 0d 22 e2 21 20 20 20 | 20 20 41 24 28 49 25 29 |..".!   |  A$(I%)|
|00004f80| 3d c0 41 24 28 49 25 29 | 2c 33 31 29 2b 22 20 20 |=.A$(I%)|,31)+"  |
|00004f90| 20 22 0d 22 ec 10 20 20 | 20 20 f2 64 65 6c 74 69 | "."..  |  .delti|
|00004fa0| 6d 65 0d 22 f6 0f 20 20 | 20 20 49 25 3d 49 25 2b |me."..  |  I%=I%+|
|00004fb0| 31 0d 23 00 09 20 20 20 | 20 cd 0d 23 0a 0b 20 20 |1.#..   | ..#..  |
|00004fc0| fd 20 c5 23 58 0d 23 14 | 0e 20 20 41 41 25 3d 49 |. .#X.#.|.  AA%=I|
|00004fd0| 25 2d 31 0d 23 1e 07 20 | 20 e1 0d 23 28 04 0d 23 |%-1.#.. | ..#(..#|
|00004fe0| 32 2b dd f2 74 67 6d 65 | 6e 75 73 65 74 20 20 20 |2+..tgme|nuset   |
|00004ff0| 20 20 f4 20 73 65 74 20 | 75 70 20 74 68 65 20 74 |  . set |up the t|
|00005000| 75 74 6f 72 20 6d 65 6e | 75 0d 23 3c 06 eb 37 0d |utor men|u.#<..7.|
|00005010| 23 46 05 db 0d 23 50 04 | 0d 23 5a 2d f1 22 50 6c |#F...#P.|.#Z-."Pl|
|00005020| 65 61 73 65 20 65 6e 74 | 65 72 20 74 75 74 6f 72 |ease ent|er tutor|
|00005030| 20 67 72 6f 75 70 20 6e | 61 6d 65 73 20 61 73 20 | group n|ames as |
|00005040| 74 68 65 79 22 0d 23 64 | 21 f1 22 61 72 65 20 74 |they".#d|!."are t|
|00005050| 6f 20 61 70 70 65 61 72 | 20 6f 6e 20 74 68 65 20 |o appear| on the |
|00005060| 6d 65 6e 75 2e 22 0d 23 | 6e 10 4a 25 3d 30 3a 4d |menu.".#|n.J%=0:M|
|00005070| 61 78 6c 25 3d 30 0d 23 | 78 05 f5 0d 23 82 0c 20 |axl%=0.#|x...#.. |
|00005080| 4a 25 3d 4a 25 2b 31 0d | 23 8c 43 20 20 20 f1 22 |J%=J%+1.|#.C   ."|
|00005090| 54 75 74 6f 72 20 67 72 | 6f 75 70 20 6e 61 6d 65 |Tutor gr|oup name|
|000050a0| 20 22 3b 4a 25 3b 22 3f | 22 20 20 20 20 20 20 20 | ";J%;"?|"       |
|000050b0| 20 20 20 3a f4 20 69 6e | 70 75 74 20 6e 61 6d 65 |   :. in|put name|
|000050c0| 73 20 66 6f 72 20 6d 65 | 6e 75 0d 23 96 10 20 20 |s for me|nu.#..  |
|000050d0| 20 e8 20 54 47 24 28 4a | 25 29 0d 23 a0 04 0d 23 | . TG$(J|%).#...#|
|000050e0| aa 2c 20 20 20 20 e7 20 | 4d 61 78 6c 25 3c a9 28 |.,    . |Maxl%<.(|
|000050f0| 54 47 24 28 4a 25 29 29 | 8c 20 4d 61 78 6c 25 3d |TG$(J%))|. Maxl%=|
|00005100| a9 28 54 47 24 28 4a 25 | 29 29 0d 23 b4 04 0d 23 |.(TG$(J%|)).#...#|
|00005110| be 14 20 20 20 f1 22 45 | 6e 64 3f 20 28 59 2f 4e |..   ."E|nd? (Y/N|
|00005120| 29 22 0d 23 c8 0a 20 20 | 54 24 3d be 0d 23 d2 16 |)".#..  |T$=..#..|
|00005130| 20 fd 20 54 24 3d 22 59 | 22 20 84 20 54 24 3d 22 | . T$="Y|" . T$="|
|00005140| 79 22 0d 23 dc 2f 20 f1 | 22 4e 6f 77 20 65 6e 74 |y".#./ .|"Now ent|
|00005150| 65 72 20 74 75 74 6f 72 | 20 67 72 6f 75 70 20 6e |er tutor| group n|
|00005160| 61 6d 65 73 20 61 73 20 | 74 68 65 79 20 61 72 65 |ames as |they are|
|00005170| 22 0d 23 e6 20 20 f1 22 | 74 6f 20 62 65 20 73 74 |".#.  ."|to be st|
|00005180| 6f 72 65 64 20 69 6e 20 | 72 65 63 6f 72 64 73 2e |ored in |records.|
|00005190| 22 0d 23 f0 2d 20 f1 22 | 28 4c 69 6d 69 74 20 34 |".#.- ."|(Limit 4|
|000051a0| 20 63 68 61 72 61 63 74 | 65 72 73 2c 20 74 68 65 | charact|ers, the|
|000051b0| 20 66 69 72 73 74 20 73 | 68 6f 75 6c 64 22 0d 23 | first s|hould".#|
|000051c0| fa 26 20 f1 22 64 65 73 | 69 67 6e 61 74 65 20 74 |.& ."des|ignate t|
|000051d0| 68 65 20 79 65 61 72 2c | 20 65 67 20 31 41 42 43 |he year,| eg 1ABC|
|000051e0| 2c 31 54 22 0d 24 04 04 | 0d 24 0e 0a 20 4a 4a 25 |,1T".$..|.$.. JJ%|
|000051f0| 3d 30 0d 24 18 4a 20 20 | 20 20 20 20 20 20 20 20 |=0.$.J  |        |
|00005200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005220| 20 3a f4 20 69 6e 70 75 | 74 20 63 6f 64 65 73 20 | :. inpu|t codes |
|00005230| 61 73 20 74 68 65 79 20 | 77 69 6c 6c 0d 24 22 42 |as they |will.$"B|
|00005240| 20 f5 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | .      |        |
|00005250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005260| 20 20 20 20 20 20 3a f4 | 20 62 65 20 73 74 6f 72 |      :.| be stor|
|00005270| 65 64 20 69 6e 20 72 65 | 63 6f 72 64 73 2e 0d 24 |ed in re|cords..$|
|00005280| 2c 11 20 20 20 20 4a 4a | 25 3d 4a 4a 25 2b 31 0d |,.    JJ|%=JJ%+1.|
|00005290| 24 36 27 20 20 20 20 20 | 20 20 f1 22 54 75 74 6f |$6'     |  ."Tuto|
|000052a0| 72 20 67 72 6f 75 70 20 | 63 6f 64 65 20 22 3b 4a |r group |code ";J|
|000052b0| 4a 25 3b 22 3f 22 0d 24 | 40 0f 20 20 20 20 20 20 |J%;"?".$|@.      |
|000052c0| 20 20 20 20 f5 0d 24 4a | 1c 20 20 20 20 20 20 20 |    ..$J|.       |
|000052d0| 20 20 20 20 20 20 e8 20 | 54 47 43 24 28 4a 4a 25 |      . |TGC$(JJ%|
|000052e0| 29 0d 24 54 1e 20 20 20 | 20 20 20 20 20 20 20 fd |).$T.   |       .|
|000052f0| 20 a9 28 54 47 43 24 28 | 4a 4a 25 29 29 3c 35 0d | .(TGC$(|JJ%))<5.|
|00005300| 24 5e 1c 20 20 20 20 20 | 20 20 c8 95 20 a9 28 54 |$^.     |  .. .(T|
|00005310| 47 43 24 28 4a 4a 25 29 | 29 3c 34 0d 24 68 25 20 |GC$(JJ%)|)<4.$h% |
|00005320| 20 20 20 20 20 20 20 20 | 20 54 47 43 24 28 4a 4a |        | TGC$(JJ|
|00005330| 25 29 3d 54 47 43 24 28 | 4a 4a 25 29 2b 22 20 22 |%)=TGC$(|JJ%)+" "|
|00005340| 0d 24 72 0c 20 20 20 20 | 20 20 20 ce 0d 24 7c 0c |.$r.    |   ..$|.|
|00005350| 20 fd 4a 4a 25 3d 4a 25 | 0d 24 86 0f f2 73 61 76 | .JJ%=J%|.$...sav|
|00005360| 65 74 67 64 61 74 61 0d | 24 90 06 20 e1 0d 24 9a |etgdata.|$.. ..$.|
|00005370| 04 0d 24 a4 2c dd f2 73 | 61 76 65 74 67 64 61 74 |..$.,..s|avetgdat|
|00005380| 61 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 73 61 |a       |   :. sa|
|00005390| 76 65 20 74 75 74 6f 72 | 20 64 61 74 61 0d 24 ae |ve tutor| data.$.|
|000053a0| 1f 74 67 66 6d 3d ad 28 | 22 3c 4f 62 65 79 24 44 |.tgfm=.(|"<Obey$D|
|000053b0| 69 72 3e 2e 54 47 46 49 | 4c 45 22 29 0d 24 b8 1b |ir>.TGFI|LE").$..|
|000053c0| 20 f1 23 74 67 66 6d 2c | 4d 61 78 6c 25 3a f1 23 | .#tgfm,|Maxl%:.#|
|000053d0| 74 67 66 6d 2c 4a 25 0d | 24 c2 12 20 e3 20 49 25 |tgfm,J%.|$.. . I%|
|000053e0| 20 3d 20 31 20 b8 20 4a | 25 0d 24 cc 25 20 20 20 | = 1 . J|%.$.%   |
|000053f0| f1 23 74 67 66 6d 2c 54 | 47 24 28 49 25 29 3a f1 |.#tgfm,T|G$(I%):.|
|00005400| 23 74 67 66 6d 2c 54 47 | 43 24 28 49 25 29 0d 24 |#tgfm,TG|C$(I%).$|
|00005410| d6 06 20 ed 0d 24 e0 0b | 20 d9 23 74 67 66 6d 0d |.. ..$..| .#tgfm.|
|00005420| 24 ea 05 e1 0d 24 f4 04 | 0d 24 fe 47 dd f2 6c 6f |$....$..|.$.G..lo|
|00005430| 61 64 66 69 6c 65 20 20 | 20 20 20 20 20 20 20 20 |adfile  |        |
|00005440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3a |        |       :|
|00005450| f4 20 6c 6f 61 64 20 6d | 61 69 6e 20 64 61 74 61 |. load m|ain data|
|00005460| 20 66 69 6c 65 20 66 72 | 6f 6d 20 64 69 73 63 0d | file fr|om disc.|
|00005470| 25 08 05 db 0d 25 12 1b | 58 3d ad 28 22 3c 4f 62 |%....%..|X=.("<Ob|
|00005480| 65 79 24 44 69 72 3e 2e | 4e 41 4d 45 53 22 29 0d |ey$Dir>.|NAMES").|
|00005490| 25 1c 08 49 25 3d 30 0d | 25 26 04 0d 25 30 0d f2 |%..I%=0.|%&..%0..|
|000054a0| 73 68 6f 77 74 69 6d 65 | 0d 25 3a 05 f5 0d 25 44 |showtime|.%:...%D|
|000054b0| 10 20 20 e8 23 58 2c 41 | 24 28 49 25 29 0d 25 4e |.  .#X,A|$(I%).%N|
|000054c0| 39 20 20 20 e7 20 97 28 | c1 41 24 28 49 25 29 2c |9   . .(|.A$(I%),|
|000054d0| 35 2c 31 29 29 3e 33 32 | 20 8c 20 20 20 20 20 3a |5,1))>32| .     :|
|000054e0| f4 20 4c 6f 61 64 20 73 | 74 75 64 65 6e 74 20 72 |. Load s|tudent r|
|000054f0| 65 63 6f 72 64 73 0d 25 | 58 0e 20 20 20 49 25 3d |ecords.%|X.   I%=|
|00005500| 49 25 2b 31 0d 25 62 06 | 20 cd 0d 25 6c 09 fd 20 |I%+1.%b.| ..%l.. |
|00005510| c5 23 58 0d 25 76 0e 20 | 20 41 41 25 3d 49 25 2d |.#X.%v. | AA%=I%-|
|00005520| 31 0d 25 80 09 20 20 d9 | 23 58 0d 25 8a 05 e1 0d |1.%..  .|#X.%....|
|00005530| 25 94 04 0d 25 9e 3e dd | f2 73 61 76 65 66 69 6c |%...%.>.|.savefil|
|00005540| 65 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e       |        |
|00005550| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 73 61 |        |   :. sa|
|00005560| 76 65 20 66 69 6c 65 20 | 69 6e 20 6d 65 6d 6f 72 |ve file |in memor|
|00005570| 79 0d 25 a8 07 d9 23 30 | 0d 25 b2 05 db 0d 25 bc |y.%...#0|.%....%.|
|00005580| 1b 58 3d ae 28 22 3c 4f | 62 65 79 24 44 69 72 3e |.X=.("<O|bey$Dir>|
|00005590| 2e 4e 41 4d 45 53 22 29 | 0d 25 c6 0d f2 73 68 6f |.NAMES")|.%...sho|
|000055a0| 77 74 69 6d 65 0d 25 d0 | 10 e3 20 49 25 3d 30 20 |wtime.%.|.. I%=0 |
|000055b0| b8 20 41 41 25 0d 25 da | 10 20 20 f1 23 58 2c 41 |. AA%.%.|.  .#X,A|
|000055c0| 24 28 49 25 29 0d 25 e4 | 05 ed 0d 25 ee 07 d9 23 |$(I%).%.|...%...#|
|000055d0| 58 0d 25 f8 04 0d 26 02 | 05 e1 0d 26 0c 04 0d 26 |X.%...&.|...&...&|
|000055e0| 16 3b dd f2 73 68 6f 77 | 74 69 6d 65 20 20 20 20 |.;..show|time    |
|000055f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005600| 20 20 20 20 3a f4 20 64 | 69 73 70 6c 61 79 20 74 |    :. d|isplay t|
|00005610| 69 6d 65 72 20 69 63 6f | 6e 0d 26 20 18 f2 6d 6f |imer ico|n.& ..mo|
|00005620| 75 73 65 63 68 61 6e 67 | 65 28 22 54 49 4d 45 22 |usechang|e("TIME"|
|00005630| 29 0d 26 2a 05 e1 0d 26 | 34 04 0d 26 3e 39 dd f2 |).&*...&|4..&>9..|
|00005640| 6d 6f 75 73 65 63 68 61 | 6e 67 65 28 6e 61 6d 65 |mousecha|nge(name|
|00005650| 24 29 20 20 20 3a f4 20 | 63 68 61 6e 67 65 20 70 |$)   :. |change p|
|00005660| 6f 69 6e 74 65 72 20 74 | 6f 20 65 67 67 20 74 69 |ointer t|o egg ti|
|00005670| 6d 65 72 0d 26 48 05 87 | 0d 26 52 0c 2a 50 4f 49 |mer.&H..|.&R.*POI|
|00005680| 4e 54 45 52 0d 26 5c 13 | de 20 6d 6f 75 73 65 64 |NTER.&\.|. moused|
|00005690| 61 74 61 20 34 30 30 0d | 26 66 34 ff 28 22 4c 4f |ata 400.|&f4.("LO|
|000056a0| 41 44 20 22 2b 22 3c 4f | 62 65 79 24 44 69 72 3e |AD "+"<O|bey$Dir>|
|000056b0| 2e 22 2b 6e 61 6d 65 24 | 2b 22 20 22 2b c3 7e 28 |."+name$|+" "+.~(|
|000056c0| 6d 6f 75 73 65 64 61 74 | 61 29 29 0d 26 70 13 6d |mousedat|a)).&p.m|
|000056d0| 6f 75 73 65 64 61 74 61 | 3f 26 30 31 3d 32 0d 26 |ousedata|?&01=2.&|
|000056e0| 7a 1f 6d 6f 75 73 65 64 | 61 74 61 21 26 30 36 3d |z.moused|ata!&06=|
|000056f0| 6d 6f 75 73 65 64 61 74 | 61 2b 26 30 41 0d 26 84 |mousedat|a+&0A.&.|
|00005700| 1e c8 99 20 22 4f 53 5f | 57 6f 72 64 22 2c 26 31 |... "OS_|Word",&1|
|00005710| 35 2c 6d 6f 75 73 65 64 | 61 74 61 0d 26 8e 0a c8 |5,moused|ata.&...|
|00005720| 97 20 ee 20 32 0d 26 98 | 05 e1 0d 26 a2 04 0d 26 |. . 2.&.|...&...&|
|00005730| c0 1d dd f2 64 6f 75 62 | 6c 65 28 43 4f 4c 25 2c |....doub|le(COL%,|
|00005740| 48 43 25 2c 56 43 25 2c | 4d 24 29 0d 26 ca 37 f1 |HC%,VC%,|M$).&.7.|
|00005750| 8a 48 43 25 2c 56 43 25 | 29 3b bd 31 34 31 3b bd |.HC%,VC%|);.141;.|
|00005760| 43 4f 4c 25 3b 4d 24 20 | 20 20 3a f4 20 50 72 69 |COL%;M$ |  :. Pri|
|00005770| 6e 74 20 63 6f 6c 6f 75 | 72 65 64 20 64 6f 75 62 |nt colou|red doub|
|00005780| 6c 65 0d 26 d4 33 f1 8a | 48 43 25 2c 56 43 25 2b |le.&.3..|HC%,VC%+|
|00005790| 31 29 3b bd 31 34 31 3b | bd 43 4f 4c 25 3b 4d 24 |1);.141;|.COL%;M$|
|000057a0| 20 3a f4 20 68 65 69 67 | 68 74 20 63 68 61 72 61 | :. heig|ht chara|
|000057b0| 63 74 65 72 73 0d 26 de | 05 e1 0d 26 e8 04 0d 26 |cters.&.|...&...&|
|000057c0| f2 3e 20 dd f2 70 6c 63 | 61 73 65 28 72 65 63 24 |.> ..plc|ase(rec$|
|000057d0| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|000057e0| 20 20 20 20 20 f4 20 70 | 72 69 6e 74 20 6e 61 6d |     . p|rint nam|
|000057f0| 65 20 6c 6f 77 65 72 20 | 63 61 73 65 0d 26 fc 1a |e lower |case.&..|
|00005800| 20 20 20 20 e7 20 c1 72 | 65 63 24 2c 35 2c 31 29 |    . .r|ec$,5,1)|
|00005810| 3d 22 20 22 20 8c 0d 27 | 06 11 20 20 20 20 20 20 |=" " ..'|..      |
|00005820| 20 f1 3b 22 20 22 3b 0d | 27 10 25 20 20 20 20 20 | .;" ";.|'.%     |
|00005830| 20 20 6e 61 6d 31 73 74 | 6f 72 65 24 3d 22 22 3a |  nam1st|ore$="":|
|00005840| 6e 61 6d 73 74 6f 72 65 | 24 3d 22 22 0d 27 1a 09 |namstore|$="".'..|
|00005850| 20 20 20 20 cc 0d 27 24 | 11 20 20 20 20 f2 64 73 |    ..'$|.    .ds|
|00005860| 28 72 65 63 24 29 0d 27 | 2e 18 20 20 20 20 f2 63 |(rec$).'|..    .c|
|00005870| 68 65 63 6b 63 61 73 65 | 28 43 4e 41 24 29 0d 27 |heckcase|(CNA$).'|
|00005880| 38 1c 20 20 20 20 6e 61 | 6d 31 73 74 6f 72 65 24 |8.    na|m1store$|
|00005890| 3d 6e 61 6d 73 74 6f 72 | 65 24 0d 27 42 0d 20 20 |=namstor|e$.'B.  |
|000058a0| 20 20 f1 22 20 22 3b 0d | 27 4c 18 20 20 20 20 f2 |  ." ";.|'L.    .|
|000058b0| 63 68 65 63 6b 63 61 73 | 65 28 53 4e 41 24 29 0d |checkcas|e(SNA$).|
|000058c0| 27 56 0c 20 20 20 f1 22 | 20 22 3b 0d 27 60 09 20 |'V.   ."| ";.'`. |
|000058d0| 20 20 20 cd 0d 27 6a 05 | e1 0d 27 74 04 0d 27 7e |   ..'j.|..'t..'~|
|000058e0| 04 0d 27 88 0e dd f2 64 | 73 28 72 65 63 24 29 0d |..'....d|s(rec$).|
|000058f0| 27 92 09 ea 20 43 4e 25 | 0d 27 9c 10 43 4e 24 3d |'... CN%|.'..CN$=|
|00005900| c0 72 65 63 24 2c 34 29 | 0d 27 a6 42 20 20 20 4e |.rec$,4)|.'.B   N|
|00005910| 41 24 3d c1 72 65 63 24 | 2c 35 2c 32 39 29 20 20 |A$=.rec$|,5,29)  |
|00005920| 20 20 20 20 20 20 20 20 | 20 3a f4 20 53 70 6c 69 |        | :. Spli|
|00005930| 74 20 6d 61 69 6e 20 72 | 65 63 6f 72 64 20 69 6e |t main r|ecord in|
|00005940| 74 6f 20 73 69 6d 70 6c | 65 72 0d 27 b0 09 43 4e |to simpl|er.'..CN|
|00005950| 25 3d 33 0d 27 ba 09 20 | 20 20 20 f5 0d 27 c4 12 |%=3.'.. |   ..'..|
|00005960| 20 20 20 20 20 43 4e 25 | 3d 43 4e 25 2b 31 0d 27 |     CN%|=CN%+1.'|
|00005970| ce 2c 20 20 20 20 fd 20 | 28 c1 4e 41 24 2c 43 4e |.,    . |(.NA$,CN|
|00005980| 25 2c 31 29 3d 22 20 22 | 20 80 20 43 4e 25 3e 33 |%,1)=" "| . CN%>3|
|00005990| 29 20 84 20 43 4e 25 3d | 32 32 0d 27 d8 15 20 53 |) . CN%=|22.'.. S|
|000059a0| 4e 41 24 3d c0 4e 41 24 | 2c 43 4e 25 2d 31 29 0d |NA$=.NA$|,CN%-1).|
|000059b0| 27 e2 36 20 20 20 e7 20 | 43 4e 25 3c 3e 32 32 20 |'.6   . |CN%<>22 |
|000059c0| 8c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000059d0| 20 20 20 3a f4 20 65 78 | 74 72 61 63 74 20 73 75 |   :. ex|tract su|
|000059e0| 72 6e 61 6d 65 0d 27 ec | 11 20 20 20 20 53 53 25 |rname.'.|.    SS%|
|000059f0| 3d 43 4e 25 2b 31 0d 27 | f6 0a 20 20 20 20 20 f5 |=CN%+1.'|..     .|
|00005a00| 0d 28 00 13 20 20 20 20 | 20 20 43 4e 25 3d 43 4e |.(..    |  CN%=CN|
|00005a10| 25 2b 31 0d 28 0a 31 20 | 20 20 20 20 fd 20 c1 4e |%+1.(.1 |    . .N|
|00005a20| 41 24 2c 43 4e 25 2c 31 | 29 3d 22 20 22 20 84 20 |A$,CN%,1|)=" " . |
|00005a30| 43 4e 25 3d 32 32 20 84 | 20 43 4e 25 3e 3d a9 28 |CN%=22 .| CN%>=.(|
|00005a40| 4e 41 24 29 0d 28 14 08 | 20 20 20 cd 0d 28 1e 3d |NA$).(..|   ..(.=|
|00005a50| 20 43 4e 41 24 3d c1 4e | 41 24 2c 53 53 25 2c 43 | CNA$=.N|A$,SS%,C|
|00005a60| 4e 25 2d 53 53 25 29 20 | 20 20 20 20 20 20 20 20 |N%-SS%) |        |
|00005a70| 3a f4 20 65 78 74 72 61 | 63 74 20 43 68 72 69 73 |:. extra|ct Chris|
|00005a80| 74 69 61 6e 20 6e 61 6d | 65 0d 28 28 05 e1 0d 28 |tian nam|e.((...(|
|00005a90| 32 04 0d 28 3c 40 dd f2 | 6d 63 65 74 63 20 20 20 |2..(<@..|mcetc   |
|00005aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005ab0| 20 20 20 3a f4 20 64 65 | 61 6c 20 77 69 74 68 20 |   :. de|al with |
|00005ac0| 6e 6f 6e 2d 73 74 61 6e | 64 61 72 64 20 6e 61 6d |non-stan|dard nam|
|00005ad0| 65 73 0d 28 46 19 20 20 | 20 e7 20 c1 6e 61 6d 24 |es.(F.  | . .nam$|
|00005ae0| 2c 33 2c 31 29 3d 22 20 | 22 20 8c 0d 28 50 1b 20 |,3,1)=" |" ..(P. |
|00005af0| 20 20 63 68 63 6f 64 25 | 3d 97 28 c1 6e 61 6d 24 |  chcod%|=.(.nam$|
|00005b00| 2c 34 2c 31 29 29 0d 28 | 5a 35 20 20 20 20 20 20 |,4,1)).(|Z5      |
|00005b10| 6e 61 6d 24 3d c0 6e 61 | 6d 24 2c 33 29 2b bd 28 |nam$=.na|m$,3)+.(|
|00005b20| 63 68 63 6f 64 25 2d 33 | 32 29 2b c2 6e 61 6d 24 |chcod%-3|2)+.nam$|
|00005b30| 2c a9 28 6e 61 6d 24 29 | 2d 34 29 0d 28 64 08 20 |,.(nam$)|-4).(d. |
|00005b40| 20 20 cd 0d 28 6e 1b 20 | 20 20 e7 20 97 28 c1 6e |  ..(n. |  . .(.n|
|00005b50| 61 6d 24 2c 32 2c 31 29 | 29 3c 36 35 20 8c 0d 28 |am$,2,1)|)<65 ..(|
|00005b60| 78 1b 20 20 20 63 68 63 | 6f 64 25 3d 97 28 c1 6e |x.   chc|od%=.(.n|
|00005b70| 61 6d 24 2c 33 2c 31 29 | 29 0d 28 82 35 20 20 20 |am$,3,1)|).(.5   |
|00005b80| 20 20 20 6e 61 6d 24 3d | c0 6e 61 6d 24 2c 32 29 |   nam$=|.nam$,2)|
|00005b90| 2b bd 28 63 68 63 6f 64 | 25 2d 33 32 29 2b c2 6e |+.(chcod|%-32)+.n|
|00005ba0| 61 6d 24 2c a9 28 6e 61 | 6d 24 29 2d 33 29 0d 28 |am$,.(na|m$)-3).(|
|00005bb0| 8c 08 20 20 20 cd 0d 28 | 96 06 20 e1 0d 28 a0 04 |..   ..(|.. ..(..|
|00005bc0| 0d 28 aa 3e dd f2 63 68 | 65 63 6b 63 61 73 65 28 |.(.>..ch|eckcase(|
|00005bd0| 6e 61 6d 24 29 20 20 20 | 20 20 20 20 20 20 20 20 |nam$)   |        |
|00005be0| 20 20 3a f4 20 63 6f 6e | 76 65 72 74 20 43 61 70 |  :. con|vert Cap|
|00005bf0| 69 74 61 6c 73 20 74 6f | 20 6c 6f 77 65 72 0d 28 |itals to| lower.(|
|00005c00| b4 30 43 4e 25 3d 31 20 | 20 20 20 20 20 20 20 20 |.0CN%=1 |        |
|00005c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005c20| 20 20 20 20 20 20 3a f4 | 20 63 61 73 65 2e 0d 28 |      :.| case..(|
|00005c30| be 08 20 20 20 f5 0d 28 | c8 11 20 20 20 20 43 4e |..   ..(|..    CN|
|00005c40| 25 3d 43 4e 25 2b 31 0d | 28 d2 1e 20 20 20 20 63 |%=CN%+1.|(..    c|
|00005c50| 68 63 6f 64 25 3d 97 28 | c1 6e 61 6d 24 2c 43 4e |hcod%=.(|.nam$,CN|
|00005c60| 25 2c 31 29 29 0d 28 dc | 23 20 20 20 e7 20 63 68 |%,1)).(.|#   . ch|
|00005c70| 63 6f 64 25 20 3c 39 31 | 20 80 20 63 68 63 6f 64 |cod% <91| . chcod|
|00005c80| 25 20 3e 20 36 34 20 8c | 0d 28 e6 39 20 20 20 20 |% > 64 .|.(.9    |
|00005c90| 6e 61 6d 24 3d c0 6e 61 | 6d 24 2c 43 4e 25 2d 31 |nam$=.na|m$,CN%-1|
|00005ca0| 29 2b bd 28 63 68 63 6f | 64 25 2b 33 32 29 2b c2 |)+.(chco|d%+32)+.|
|00005cb0| 6e 61 6d 24 2c a9 28 6e | 61 6d 24 29 2d 43 4e 25 |nam$,.(n|am$)-CN%|
|00005cc0| 29 0d 28 f0 09 20 20 20 | 20 cc 0d 28 fa 20 20 20 |).(..   | ..(.   |
|00005cd0| 20 e7 20 63 68 63 6f 64 | 25 3e 34 37 20 80 20 63 | . chcod|%>47 . c|
|00005ce0| 68 63 6f 64 25 3c 35 38 | 20 8c 0d 29 04 11 20 20 |hcod%<58| ..)..  |
|00005cf0| 20 20 63 68 63 6f 64 25 | 3d 33 32 0d 29 0e 36 20 |  chcod%|=32.).6 |
|00005d00| 20 20 20 6e 61 6d 24 3d | c0 6e 61 6d 24 2c 43 4e |   nam$=|.nam$,CN|
|00005d10| 25 2d 31 29 2b bd 28 63 | 68 63 6f 64 25 29 2b c2 |%-1)+.(c|hcod%)+.|
|00005d20| 6e 61 6d 24 2c a9 28 6e | 61 6d 24 29 2d 43 4e 25 |nam$,.(n|am$)-CN%|
|00005d30| 29 0d 29 18 09 20 20 20 | 20 cd 0d 29 22 08 20 20 |).)..   | ..)".  |
|00005d40| 20 cd 0d 29 2c 04 0d 29 | 36 15 20 20 20 fd 20 43 | ..),..)|6.   . C|
|00005d50| 4e 25 3e 3d a9 28 6e 61 | 6d 24 29 0d 29 40 0d 20 |N%>=.(na|m$).)@. |
|00005d60| 20 20 f2 6d 63 65 74 63 | 0d 29 4a 14 20 20 6e 61 |  .mcetc|.)J.  na|
|00005d70| 6d 73 74 6f 72 65 24 3d | 6e 61 6d 24 0d 29 54 05 |mstore$=|nam$.)T.|
|00005d80| e1 0d 29 5e 04 0d 29 72 | 04 0d 29 7c 0d dd f2 6c |..)^..)r|..)|...l|
|00005d90| 69 73 74 61 62 73 0d 29 | 86 2f 20 f2 6c 69 73 74 |istabs.)|./ .list|
|00005da0| 61 70 28 37 39 2c 31 31 | 30 2c 31 30 34 2c 36 37 |ap(79,11|0,104,67|
|00005db0| 2c 38 34 2c 53 43 4e 41 | 4d 24 2c 22 41 62 73 65 |,84,SCNA|M$,"Abse|
|00005dc0| 6e 63 65 22 29 0d 29 90 | 05 e1 0d 29 9a 04 0d 29 |nce").).|...)...)|
|00005dd0| a4 0e dd f2 6c 69 73 74 | 70 72 65 73 0d 29 ae 2f |....list|pres.)./|
|00005de0| 20 f2 6c 69 73 74 61 70 | 28 34 37 2c 39 32 2c 37 | .listap|(47,92,7|
|00005df0| 36 2c 32 35 35 2c 32 35 | 35 2c 53 43 4e 41 4d 24 |6,255,25|5,SCNAM$|
|00005e00| 2c 22 50 72 65 73 65 6e | 74 22 29 0d 29 b8 05 e1 |,"Presen|t").)...|
|00005e10| 0d 29 c2 04 0d 29 cc 04 | 0d 29 d6 0f dd f2 6c 69 |.)...)..|.)....li|
|00005e20| 73 74 6e 6f 74 65 73 0d | 29 e0 05 db 0d 29 ea 38 |stnotes.|)....).8|
|00005e30| f1 22 48 6f 77 20 6d 61 | 6e 79 20 64 61 79 73 20 |."How ma|ny days |
|00005e40| 64 6f 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 73 |do you w|ant to s|
|00005e50| 74 61 72 74 20 62 61 63 | 6b 3f 20 28 32 35 20 6d |tart bac|k? (25 m|
|00005e60| 61 78 29 22 0d 29 f4 05 | f5 0d 29 fe 0a e8 62 61 |ax)".)..|..)...ba|
|00005e70| 63 6b 25 0d 2a 08 19 fd | 20 62 61 63 6b 25 3e 2d |ck%.*...| back%>-|
|00005e80| 31 20 80 20 62 61 63 6b | 25 3c 32 36 0d 2a 12 08 |1 . back|%<26.*..|
|00005e90| 66 25 3d 30 0d 2a 1c 19 | e7 20 63 75 72 64 61 79 |f%=0.*..|. curday|
|00005ea0| 25 2d 62 61 63 6b 25 20 | 3c 3d 30 20 8c 0d 2a 26 |%-back% |<=0 ..*&|
|00005eb0| 15 20 20 20 20 c8 8e 20 | 44 25 28 6d 25 2d 31 29 |.    .. |D%(m%-1)|
|00005ec0| 20 ca 0d 2a 30 12 20 20 | 20 20 20 c9 20 33 30 3a | ..*0.  |   . 30:|
|00005ed0| 66 25 3d 31 0d 2a 3a 12 | 20 20 20 20 20 c9 20 32 |f%=1.*:.|     . 2|
|00005ee0| 39 3a 66 25 3d 32 0d 2a | 44 12 20 20 20 20 20 c9 |9:f%=2.*|D.     .|
|00005ef0| 20 32 38 3a 66 25 3d 33 | 0d 2a 4e 09 20 20 20 20 | 28:f%=3|.*N.    |
|00005f00| cb 0d 2a 58 16 20 20 20 | 20 62 61 63 6b 25 3d 62 |..*X.   | back%=b|
|00005f10| 61 63 6b 25 2b 66 25 0d | 2a 62 05 cd 0d 2a 6c 04 |ack%+f%.|*b...*l.|
|00005f20| 0d 2a 76 11 e3 20 49 25 | 20 3d 30 20 b8 20 41 41 |.*v.. I%| =0 . AA|
|00005f30| 25 0d 2a 80 0f f2 73 65 | 61 72 63 68 64 61 74 61 |%.*...se|archdata|
|00005f40| 0d 2a 8a 1c 73 74 73 65 | 61 72 63 68 25 3d 70 6f |.*..stse|arch%=po|
|00005f50| 69 6e 74 25 2d 62 61 63 | 6b 25 2a 32 0d 2a 94 19 |int%-bac|k%*2.*..|
|00005f60| 73 74 73 65 61 72 63 68 | 25 3d 73 74 73 65 61 72 |stsearch|%=stsear|
|00005f70| 63 68 25 2d 31 0d 2a 9e | 15 e7 20 73 74 73 65 61 |ch%-1.*.|.. stsea|
|00005f80| 72 63 68 25 3c 3d 4a 25 | 20 8c 0d 2a a8 3a 20 f1 |rch%<=J%| ..*.: .|
|00005f90| 22 43 61 6e 27 74 20 73 | 65 61 72 63 68 20 62 65 |"Can't s|earch be|
|00005fa0| 66 6f 72 65 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |fore the| beginni|
|00005fb0| 6e 67 20 6f 66 20 74 68 | 65 20 79 65 61 72 21 22 |ng of th|e year!"|
|00005fc0| 3a ef 31 31 0d 2a b2 05 | cc 0d 2a bc 1c 20 20 c8 |:.11.*..|..*..  .|
|00005fd0| 95 20 73 74 73 65 61 72 | 63 68 25 20 3c 3d 20 70 |. stsear|ch% <= p|
|00005fe0| 6f 69 6e 74 25 0d 2a c6 | 19 20 20 e7 20 3f 73 74 |oint%.*.|.  . ?st|
|00005ff0| 73 65 61 72 63 68 25 20 | 3d 20 37 39 20 8c 0d 2a |search% |= 79 ..*|
|00006000| d0 15 20 20 f2 70 6c 63 | 61 73 65 28 41 24 28 49 |..  .plc|ase(A$(I|
|00006010| 25 29 29 0d 2a da 21 20 | 20 20 f1 6e 61 6d 31 73 |%)).*.! |  .nam1s|
|00006020| 74 6f 72 65 24 3b 22 20 | 22 3b 6e 61 6d 73 74 6f |tore$;" |";namsto|
|00006030| 72 65 24 3b 0d 2a e4 19 | 20 20 f1 8a 33 30 29 3b |re$;.*..|  ..30);|
|00006040| c1 41 24 28 49 25 29 2c | 32 38 2c 34 29 0d 2a ee |.A$(I%),|28,4).*.|
|00006050| 07 20 20 f1 0d 2a f8 1b | 20 20 c8 95 20 73 74 73 |.  ..*..|  .. sts|
|00006060| 65 61 72 63 68 25 20 3c | 3d 70 6f 69 6e 74 25 0d |earch% <|=point%.|
|00006070| 2b 02 19 20 20 e7 20 3f | 73 74 73 65 61 72 63 68 |+..  . ?|stsearch|
|00006080| 25 20 3d 20 37 39 20 8c | 0d 2b 0c 28 20 20 e7 20 |% = 79 .|.+.(  . |
|00006090| 28 70 6f 69 6e 74 25 20 | 2d 73 74 73 65 61 72 63 |(point% |-stsearc|
|000060a0| 68 25 29 81 32 3c 3d 63 | 75 72 64 61 79 25 20 8c |h%).2<=c|urday% .|
|000060b0| 0d 2b 16 0a 20 20 66 25 | 3d 30 0d 2b 20 07 20 20 |.+..  f%|=0.+ .  |
|000060c0| cd 0d 2b 2a 27 20 20 4e | 44 25 3d 28 70 6f 69 6e |..+*'  N|D%=(poin|
|000060d0| 74 25 2d 28 73 74 73 65 | 61 72 63 68 25 2b 32 2a |t%-(stse|arch%+2*|
|000060e0| 66 25 2d 31 29 29 81 32 | 0d 2b 34 0b 20 20 f2 64 |f%-1)).2|.+4.  .d|
|000060f0| 61 74 65 0d 2b 3e 08 20 | 20 20 cd 0d 2b 48 07 20 |ate.+>. |  ..+H. |
|00006100| 20 cd 0d 2b 52 1b 20 20 | 73 74 73 65 61 72 63 68 | ..+R.  |stsearch|
|00006110| 25 3d 73 74 73 65 61 72 | 63 68 25 2b 31 0d 2b 5c |%=stsear|ch%+1.+\|
|00006120| 06 20 ce 0d 2b 66 09 20 | 20 20 20 cd 0d 2b 70 06 |. ..+f. |   ..+p.|
|00006130| 20 ed 0d 2b 7a 08 20 f1 | 3a f1 0d 2b 84 09 f2 77 | ..+z. .|:..+...w|
|00006140| 61 69 74 0d 2b 8e 05 e1 | 0d 2b 98 04 0d 2b a2 0a |ait.+...|.+...+..|
|00006150| dd f2 64 61 74 65 0d 2b | ac 0a 6d 6e 25 3d 6d 25 |..date.+|..mn%=m%|
|00006160| 0d 2b b6 15 e7 20 63 75 | 72 64 61 79 25 2d 4e 44 |.+... cu|rday%-ND|
|00006170| 25 3e 30 20 8c 0d 2b c0 | 25 20 f1 8a 33 34 29 3b |%>0 ..+.|% ..34);|
|00006180| 63 75 72 64 61 79 25 2d | 4e 44 25 3b 22 20 22 3b |curday%-|ND%;" ";|
|00006190| 4d 4f 4e 54 48 24 28 6d | 25 29 0d 2b ca 05 cc 0d |MONTH$(m|%).+....|
|000061a0| 2b d4 0f 20 20 20 e7 20 | 6d 25 3e 30 20 8c 0d 2b |+..   . |m%>0 ..+|
|000061b0| de 15 20 20 20 20 c8 8e | 20 44 25 28 6d 25 2d 31 |..    ..| D%(m%-1|
|000061c0| 29 20 ca 0d 2b e8 23 20 | 20 20 20 20 c9 20 33 31 |) ..+.# |    . 31|
|000061d0| 3a 64 61 79 25 3d 33 31 | 2d 28 4e 44 25 2d 63 75 |:day%=31|-(ND%-cu|
|000061e0| 72 64 61 79 25 29 0d 2b | f2 23 20 20 20 20 20 c9 |rday%).+|.#     .|
|000061f0| 20 33 30 3a 64 61 79 25 | 3d 33 30 2d 28 4e 44 25 | 30:day%|=30-(ND%|
|00006200| 2d 63 75 72 64 61 79 25 | 29 0d 2b fc 23 20 20 20 |-curday%|).+.#   |
|00006210| 20 20 c9 20 32 39 3a 64 | 61 79 25 3d 32 39 2d 28 |  . 29:d|ay%=29-(|
|00006220| 4e 44 25 2d 63 75 72 64 | 61 79 25 29 0d 2c 06 23 |ND%-curd|ay%).,.#|
|00006230| 20 20 20 20 20 c9 20 32 | 38 3a 64 61 79 25 3d 32 |     . 2|8:day%=2|
|00006240| 38 2d 28 4e 44 25 2d 63 | 75 72 64 61 79 25 29 0d |8-(ND%-c|urday%).|
|00006250| 2c 10 09 20 20 20 20 cb | 0d 2c 1a 11 20 20 20 20 |,..    .|.,..    |
|00006260| 20 6d 6e 25 3d 6d 25 2d | 31 0d 2c 24 08 20 20 20 | mn%=m%-|1.,$.   |
|00006270| cd 0d 2c 2e 1f 20 f1 8a | 33 34 29 3b 64 61 79 25 |..,.. ..|34);day%|
|00006280| 3b 22 20 22 3b 4d 4f 4e | 54 48 24 28 6d 6e 25 29 |;" ";MON|TH$(mn%)|
|00006290| 0d 2c 38 05 cd 0d 2c 42 | 05 e1 0d 2c 4c 04 0d 2c |.,8...,B|...,L..,|
|000062a0| 56 0d dd f2 6c 69 73 74 | 69 64 73 0d 2c 60 11 f2 |V...list|ids.,`..|
|000062b0| 67 65 74 74 75 74 67 70 | 64 61 74 61 0d 2c 6a 05 |gettutgp|data.,j.|
|000062c0| db 0d 2c 74 0f e7 20 70 | 6f 6e 25 20 8c 20 ef 32 |..,t.. p|on% . .2|
|000062d0| 0d 2c 7e 0d 20 74 6c 69 | 6e 65 25 3d 32 0d 2c 88 |.,~. tli|ne%=2.,.|
|000062e0| 24 54 69 74 6c 65 24 3d | 22 53 74 75 64 65 6e 74 |$Title$=|"Student|
|000062f0| 73 20 61 6e 64 20 74 68 | 65 69 72 20 63 6f 64 65 |s and th|eir code|
|00006300| 22 0d 2c 92 1e f1 8a 28 | 38 30 2d a9 28 54 69 74 |".,....(|80-.(Tit|
|00006310| 6c 65 24 29 29 2f 32 29 | 3b 54 69 74 6c 65 24 0d |le$))/2)|;Title$.|
|00006320| 2c 9c 05 f1 0d 2c a6 16 | e3 20 74 75 74 25 3d 31 |,....,..|. tut%=1|
|00006330| 20 b8 20 4a 4a 25 20 88 | 20 32 0d 2c b0 2a 69 6e | . JJ% .| 2.,.*in|
|00006340| 64 31 25 3d 30 3a 69 6e | 64 32 25 3d 30 3a 70 73 |d1%=0:in|d2%=0:ps|
|00006350| 74 6f 72 65 31 24 28 30 | 29 3d 22 20 20 20 20 20 |tore1$(0|)="     |
|00006360| 20 20 20 22 0d 2c ba 2a | 20 20 20 20 20 20 20 20 |   ".,.*|        |
|00006370| 20 20 20 20 20 20 20 20 | 70 73 74 6f 72 65 32 24 |        |pstore2$|
|00006380| 28 30 29 3d 22 20 20 20 | 20 20 20 20 20 22 0d 2c |(0)="   |     ".,|
|00006390| c4 13 e7 20 74 75 74 25 | 2b 31 3c 3d 4a 4a 25 20 |... tut%|+1<=JJ% |
|000063a0| 8c 0d 2c ce 0c 20 20 20 | f2 70 64 62 6c 0d 2c d8 |..,..   |.pdbl.,.|
|000063b0| 05 cc 0d 2c e2 0d 20 20 | 20 f2 70 73 69 6e 67 0d |...,..  | .psing.|
|000063c0| 2c ec 05 cd 0d 2c f6 09 | 20 20 20 20 f1 0d 2d 00 |,....,..|    ..-.|
|000063d0| 06 20 ed 0d 2d 0a 0f 20 | 20 ef 33 3a 70 6f 6e 25 |. ..-.. | .3:pon%|
|000063e0| 3d a3 0d 2d 14 20 20 20 | f1 22 50 72 65 73 73 20 |=..-.   |."Press |
|000063f0| 61 20 6b 65 79 20 74 6f | 20 63 6f 6e 74 69 6e 75 |a key to| continu|
+--------+-------------------------+-------------------------+--------+--------+